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41 .REM L 

Ai MlSTORt 

4J 

44 

45 OCT 83 REV. A FIRST RELEASE 

46 FEB 84 REV. B CORRECTIONS HADE TO: 

47 I, CORRECT VECTOR AREA MAINTENANCE PROBLEM 

40 2. ALLOW DIAGNOSTIC TO EXECUTE PROPERLY IN APT 

49 ENVIRONMENT . 

50 5. ALLOU DIAGNOSTIC TO BE EXECUTED IN SYSTEMS WITH 

51 MXVll-A/B MODULES. REQUIRES DELETION OF TESTS 

52 WHICH CAUSE KOJll A CACHE PARITY ABORTS. 

55 4. ENSURE THAT CPU ERROR REGISTER IS CLEARED AFTER 

54 COMPLETION OF TEST THAT MIGHT CAUSE IT TO BE SE'. 

55 5. SAVE PC AND CONTENTS OF R6 ON UNEXPECTED INTERRUPTS 

56 L 
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S4 

85 .RfM t 

86 1.0 GENERAL INFORMATION 
87 

88 1.1 PROGRAM ABSTRACT 
89 

90 THIS IS AN APT COMPATIBLE VERSION OT THE KDJll CACHE MEMORY 

91 SrSTEM DIAGNOSTIC. IT FOCUSES ON TESTING THE FUNCTIONALITY 

92 OF THE CACHE MEMORY SYSTEM. A SWITCH IS PROVIDED IN THE 

93 SOFTWARE SWITCH REGISTER TO DISABLE 22 BIT ADDRESS GENERATION 

94 IN 18 BIT QBUS SYSTEMS. THIS IS IMPLEMENTED BY SETTING BIT 08 

95 TO A ONE. DEFAULT IS TO TEST 22 BIT ADDRESSES. IN ADDITION; 

96 A SWITCH IS PROVIDED TO ENABLE THE EXECUTION OF THE CACHE DATA. 

97 AND CACHE TAG RAM DATA RELIABILITY TESTS. THESE TESTS ARE VERY 

98 LONG AND MAY NOT BE DESIRED IN ALL APPLICATIONS. THESE TESTS 

99 ARE ENABLED BY SETTING BIT 09 IN THE SOFTWARE SWITCH REGISTER 
100 (LOCATION 176) TO ONE. DEFAULT IS TO NOT EXECUTE THESE TESTS. 
101 

102 1.2 SYSTEM REQUIREMFNTS 

1.04 KDJll -A PROCESSOR MODULE 

105 ENSURE THAT HALT TRAP OPTION IS DISABLED (JUMPER U9 INSTALLED) 

106 32KW MEMORY 

107 0-22 BACKPLANE (18 BIT QBUS MAY BE USED WITH REDUCED TEST COVERAGE) 

108 SERIAL LINE UNIT AND CONSOLE TERMINAL (CONSOLE TERMINAL NOT REQUIRED FOR APT) 
109 

110 1.5 RELATED DOCUMENTS AND STANDARDS 
111 

112 KDJll -A MODULE SPECIFICATION REV 2.2 

113 PDPll MAINOEC SYSMAC PACKAGE 

114 Jll CONTROL CHIP SPECIFICATION 21-17679-00 

115 Jll DATA CHIP SPECIFICATION 21-17677-00 
116 

117 1.4 DIAGNOSTIC HIERAHCY PREREQUISITES 

lie 

119 THE KDJll CPU. MEMORY MANAGEMENT AND FLOATING POINT DIAGNOSTICS 

120 SHOULD RUN SUCCESSFULLY PRIOR TO RUNNING THE CACHE MEMORY 

121 SYSTEM TESTS. 
122 

123 1.5 ASSUMPTIONS 
124 

125 IT IS ASSUMED THAT THE DIAGNOSTIC OPERATOR IS FAMILIAR WITH 

126 THE XXDP» OPERATING SYSTEM AND THE Jll MICRO DOT. 
127 

128 2.0 OPERATING INSTRUCTIONS 
129 

130 2.1 LOADING AND STARTING PROCEEDURE 
151 

152 LOAD PROGRAM INTO MEMORY USING STANDARD XXDP» PROCEEDURES. 

155 The PROGRAM IS STARTED BY LOADING ADDRESS 200 AND USING 

134 THE Jll MICRO -OOT G COMMAND TO START. THE PR(X;RAM 

155 IDENTIFICATION MESSAGE WILL BE TYPED AFTER TMF FIRST PASS 

156 OF THE COMPLETE PROGRAM. 
137 

158 2.2 PROGRAM OPTIONS 
159 
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140 THE FOLLOWING ASSIGNMENTS HAVE BEEN MADE FOR THE KOJll A 

141 DIAGNOSTIC SWITCH REGISTER BITS: 
142 

143 BIT*15 14 13 12 11 10 9 8 

144 * • * * 

145 DON'T 18 BIT EXTENDED 

146 TEST ADDRESS CACHE 

147 BEVENT ONLr TESTS 
X46 * '-- * -' -* ...... « .* * «... * 

149 

150 DEFAULT SETTINGS ARE TO TEST 22 BIT ADDRESSES AND NOT 00 THE 

151 EXTENDED CACHE TESTS. 
152 

153 PRIOR TO EXECUTING THE FIRST PASS OF THE DIAGNOSTIC THE OPERATOR 

154 WILL BE DIRECTED TO SET THE SWITCH REGISTER TO INDICATE WHETHER 

155 THE KDJll-A UNDER TEST IS IN A SYSTEM CONFIGURED FOR 18 OR 22 BIT 

156 ADDRESSING AND WHETHER CACHE RAM DATA RELIABILITY TESTS ARE TO BE 

157 EXECUTED. AN 18 BIT ADDRESS CONFIGURATION SHOULD BE INDICATED IF 

158 ANY 18 ADDRESS BIT ONLY MEMORY BOARDS RESIDE IN THE SYSTEM OR IF 

159 THE SYSTEM BACKPLANE DOES NOT SUPPORT 22 ADDRESS BITS. THE CACHE 

160 RAM DATA RELIABILTY TESTS REQUIRE APPROXIMATELY 35 MINUTES TO 

161 EXECUTE AND SHOULD ONLY BE SELECTED IF PROBLEMS WITH CACHE DATA 

162 CORRUPTION OR RETENTION ARE SUSPECTED. 
163 

164 TO CHANGE THE SWITCH REGISTER; HALT THE PROGRAM AND RESTART IT 

165 AT 200 ANSWERING THE INITIAL QUESTIONS. 
166 

167 2.3 OPERATION UNDER APT 
168 

169 OPERATION IN THE APT ENVIRONMENT REQUIRES SOME SPECIAL CONSIDERA 

170 TIONS DUE TO THE ASYNCHRONOUS HALTS OF THE DIAGNOSTIC BY THE APT 

171 MONITOR. IF THE EFFECTS OF THESE HALTS ARE NOT ANTICIPATED. FALSE 

172 ERRORS MAY BE REPORTED. THEREFORE. WHEN OPERATING IN THE APT ENVIRON 

173 MENT THE FOLLOWING DIFFERENCES IN THE EXECUTION OF THE PROGRAM SHOULD 

174 BE NOTED: 
175 

176 1. CERTAIN CACHE TESTS WHICH RElY ON THE INTEGRITY OF DATA IN THE 

177 HIT/MISS REGISTER OR THE WAY IN WHICH THE CACHE IS ALLOCATED WILL 

178 JUMP TO A bJB -ROUTINE IF AN ERROR IS ENCOUNTERED. THE SUBROUTI^A 

179 DETERMINES IF THE DIAGNOSTIC IS OPERATING IN APT ENVIRONMENT. IF 

180 IT IS IN APT ENVIRONMENT IT WILL RETRY THE FAILING TEST ONE TIME. 

181 IF THE TEST PASSES ON THE SECOND ATTEMPT THE FIRST ERROR WILL BE 

182 CONSIDERED TO BE APT INDUCED. IF IT FAILS ON THE SECOND ATTEMPT 

183 THE ERROR ROUTINE WILL BE CALLED. 
184 

185 2.4 EXECUTION TIMES 
186 

187 A. THE LONGEST TEST 
188 

189 THE LONGEST TEST IS THE TAG RAM DATA RELIABILITY TEST WHICH TAKES 

190 APPROXIMAELY 25 MINUTES TO EXECUTE, f OR THIS REASON TmE DATA RELlABlLlTl 

191 TESTS ARE NORMALLY DE SELECTED. 
192 

195 B. FULL PASS TIME 
194 

195 THE TIMF FOR A FU L PASS WITH THE DATA RELIABILITY TESTS DE SELECTED 
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l«»6 IS APPROXIMATELY 5 SECONDS. WITH ALL TESTS SELECTED A FULL PASS 

197 TAKES ABOUT 35 MINUTES. 

198 

19«» 3,0 ERROR INFORMATION 

200 

201 ERRORS WILL CAUSE THE FOLLOWING ERROR MESSAGE TO BE PRINTED: 

202 

205 CACHE SYSTEM ERROR 

204 ERROR 9 • (UNIQUE ERROR NUMBER) 

205 ERROR PC ■ CPC AT TIME QF ERROR) 
206 

207 THE ERROR WILL THEN BE REPORTED TO APT AND THE PROGRAM 

200 WILL HALT. 

209 

210 4.0 PROGRESS REPORT 

?U 

212 AT THE END QF EACH PASS THE DIAGNOSTIC NAME AND PASS COUNT ARE PRINTED. 

213 

214 C 
215 
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216 .TITLE PROGRAM HEADER AND TABLES 

217 .SBTTL PROGRAM HEADER 
2i6 

219 .MCALL ETXTl.ETXT2.ETXTS,ETXT4,ETXT5.ETXT6,ETXT7,ETXT8.ETXT9 

220 .MCALL ETXT10.ETXT11.ETXTI2.ETXT15,ETXT14.ETXTI5.ETXTI6.ETXT17 

221 .MCALL ETXT18.ETXT19.ETXT20.ETXT21.ETXT22.ETXT23.ETXT24.ETXT25 

222 .MCALL ETXT26.ETXT27.ETXT28,ETXT29.ETXTS0.ETXT51,ETXT32.ETXT53 
225 .MCALL ETXT34.ETXT35.ETXT36.ETXT37.ETXT38.ETXT39,ETXT40.ETXT4l 

224 .MCALL ETXT42.ETXT43.ETXT44.ETXT45.ETXT46,ETXT47,ETXT48,ETXT49 

225 .MCALL ETXT50.ETXT51.ETXT52.ETXT53,ETXT54,ETXT55.ETXT56.ETXT57 

226 .MCALL ETXT58.ETXT59.ETXT60.ETXT61.ETXT62 

227 .MCALL ERRFl.ERRF2.ERRF3,ERRr4.eRRF5,ERRF6.ERRF7 

228 .MCALL ERRF8.ERRF9.ERRF10,ERRF11.ERRF12,ERRF13.ERRF14.ERRF15 

229 .MCALL ERRF16.ERRF17.ERRF18.ERRF19,ERRF20.ERRF21.ERRF22,ERRF23 

230 .MCALL ERRF24.ERRF25.ERRF26.ERRF27.ERRF28.ERRF29.ERRF30,ERRF31 

231 .MCALL ERRF32.ERRF33.ERRF54.ERRF35.ERRF36.ERRF37,ERRF38.ERRF39 
252 .MCALL ERRF40.ERRF41.ERRF42.ERRF45.ERRF44.ERRF45,ERRF46.ERRF47 

233 . MCALL ERRF48 . ERRF49 . ERRF50 . ERRF51 . ERRF52 . ERRF53 . ERRF54 . ERRF55 

234 .MCALL ERRF56.ERRF57,ERRF58,ERRF59,ERRF60.ERRF61.ERRF62.ERRF65 
255 .MCALL ERRF64.ERRF65.ERRF66.ERRF67.ERRF01.ERRF02.ERRF03.ERRF04 

236 .MCALL ERRF05.ERRF06.ERRF07.ERRF08.ERRF09.SFTERR.EXITST 

237 .MCALL NEWTST.ERRDEF. .EQUAT, .KTll. . $40CAT, . »EOP. . »APTBLS. SETUP 

238 .MCALL . ITYPE. . ITYPDEC.ERRDF .8GNTST .ENDTST .BGNMOD.ENDMOD.CKLOQP 

239 .MCALL .HEADER, .SETUP. . tTRAP.BGNSUB.ENOSUB. . $ACT11. . tAPTHDR 
^^0 .MCALL .$APTYPE..IERROR..$TYPOCT..»READ 

241 
242 
243 

244 .TITLE KDJll-A CACHE r^MORY SYSTEM TEST 

245 i*C0PYRIGHT (C) MARCH. 1984 

246 t*OIGITAL EQUIPMENT CORP. 

247 :*MAYNARO. MASS. 01754 

248 I* 

249 I* 

250 i*THZS PROGRAM UAS ASSEMBLED USING THE POP 11 MAINOEC SYSMAC 

251 i*PACKAGE (MAINOEC- 11 -DZQ AC C3). JAN 19. 1977. 

252 ,* 
255 000001 ITN-1 

254 160000 ISUR-160000 siHALT ON ERROR. LOOP ON TEST. INHIBIT ERROR TYPOUT 
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.TITLE GLOBAL AREAS 

.SBTTL GLOBAL EQUATES SECTION 

i THE GLOBAL EQUATES SECTION CONTAINS PROGRAM EQUATES THAT 
: ARE USED IN MORE THAN ONE TEST. 

!SBTTL BASIC DEFINITIONS 

: •INITIAL ADDRESS OF THE STACK POINTER 1000 
STACK- 1000 

.EQUIV EMT, ERROR j;BASIC DEFINITION OF ERROR CALL 

.EQUIV lOT. SCOPE t (BASIC DEFINITION OF SCOPE CALL 



SEO 0006 



; •MISCELLANEOUS DEFINITIONS 

; J CODE FOR HORIZONTAL TAB 
j}C«)E FOR LINE FEED 
tiCODE FOR CARRIAGE RETURN 
;jCOOE FOR CARRIAGE RETURN-LINE FEED 
: (PROCESSOR STATUS UORD 



HT 
LF- 
CR« 
CRLF- 
PS- 
. EQUIV 
STKLMT 
PIRQ- 
DSUR- 
DDISP- 



11 
12 
15 

200 
177776 
PS.PSU 
177774 
177772 
177570 
177570 



! (STACK LIMIT REGISTER 

5;PR0GRAM INTERRUPT REQUEST REGISTER 

kHARDMARE SWITCH REGISTER 

{ (HARDWARE DISPLAY REGISTER 



(•GENERAL PURPOSE REGISTER DEFINITIONS 



RO' 
Rl' 
R2> 
RS' 
R4< 
R5' 
R6- 
R7> 
SP" 
PC- 



«0 
«1 
«2 
«3 
iM 
«E 
«o 
«7 
K6 
«7 



((GENERAL REGISTER 
{{GENERAL REGISTER 
{(GENERAL REGISTER 
{{GENERAL REGISTER 
((GENERAL REGISTER 
{(GENERAL REGISTER 
({GENERAL REGISTER 
{{GENERAL REGISTER 
{ {STACK POINTER 
((PROGRAM COUNTER 



(•PRIORITY LEVEL DEFINITIONS 



PRO- 
PR1> 
PR2" 
PR3' 
PR4> 
PR5' 
PR6< 
PR7" 



0 
40 
100 
140 
200 
240 
300 
340 



( {PRIORITY LEVEL 
{(PRIORITY LEVEL 
({PRIORITY LEVEL 
{{PRIORITY LEVEL 
{{PRIORITY LEVEL 
({PRIORITY LEVEL 
((PRIORITY LEVEL 
{(PRIORITY LEVEL 



{•"SWITCH REGISTER" SWITCH DEFINITIONS 

SW15- 100000 

SW14- 40000 

SW13- 20000 

SW12- 10000 

SWll- 4000 

SWIO- 2000 

SW09' 1000 



Jl 
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S£Q 0009 



SW08' 400 

SW07» 200 

SU06' 100 

SW05» 40 

SU04- 20 

SU03« 10 

SU02' 4 

SWOl- 2 

SUOO- 1 

.EQUIV SU09.SU9 

.EQUIV SU08.SU6 

.EQUIV SU07.SU7 

.EOUIV SU06.SW6 

.EQUIV SU05.SU5 

.EQUIV SU04.SW4 

.EQUIV SU03.SU3 

.EQUIV SU02.SU2 

.EQUIV SWOl.SUl 

.EQUIV SUOO.&UO 

:*OATA BIT DEFINITIONS (BITOO TO BIT15) 

BIT15- 100000 

BIT14- 40000 

BIT13- 20000 

BIT12- 10000 

BITll- 4000 

BITIO- 2000 

B1T09- 1000 

BIT08- 400 

BIT07* 200 

BIT06- 100 

BIT05- 40 

BIT04- 20 

BIT03- 10 

BIT02- 4 

BITOl- 2 

BITOO- 1 

.EQUIV BIT09,BIT9 

.EQUIV 6IT08.BIT8 

.EQUIV BIT07.BIT7 

.EQUIV BIT06.BIT6 

.EQUIV 6IT05.BIT5 

.EQUIV 6IT04.BIT4 

.EQUIV BIT03.BIT3 

.EQUIV BIT02.BIT2 

.EQUIV BITOl. BITl 

.EQUIV BITOO. BITO 



8 •BASIC "CPU* 
ERRVEC- 4 
RESVEC- 10 
TBITVEC-14 
TRTVEC- 14 
BPTVEC- 14 
IOTVEC« 20 
PURVEC* 24 



TRAP VECTOR ADDRESSES 

iiTIHE OUT AND OTHER ERRORS 

I {RESERVED AND ILLEGAL INSTRUCTIONS 



i 



'T» BIT 



J I TRACE TRAP 
t (BREAKPOINT TRAP (BPT) 
» I INPUT/OUTPUT TRAP (lOT) ••SCOPE** 
s (POWER FAIL 



'1 



GLOBAL ARFAS 
KOJllA.MAC 

367 
360 
369 
370 
5/1 
372 
373 
374 
375 
376 
577 
378 
379 
380 
381 
382 
383 
384 
385 
386 
387 
388 
389 
390 
391 
392 
393 
394 
395 
396 
397 
398 
399 
400 
401 
402 
403 
404 
405 
406 
407 
408 
409 
410 
411 
412 
413 
414 
415 
416 
417 
418 
4L9 
420 
421 
422 
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000030 
000034 
000060 
000064 
000240 



000250 



177572 
177574 
177576 
172516 



177600 
177602 
177604 
177606 
177610 
177612 
177614 
177616 



177620 
177622 
177624 
177626 
177630 
177632 
177634 
1776S6 



177640 
177642 
177644 
177646 
177650 
177652 
177654 
177656 



177660 
177662 
177664 
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EMTveC« 30 
TRAPVEC'54 
TKVEC- 60 
TPVEC* 64 
PIRQVEC-240 



SEQ 0010 



.SBTTL MEMORY MANAGEMENT DEFINITIONS 
!*KT11 VECTOR ADDRESS 
MMVEC- 250 

!*KT11 STATUS REGISTER ADDRESSES 

SRO- 177572 

SRI- 177574 

SR2- 177576 

SR5- 172516 

i*USER "I" PAGE DESCRIPTOR REGISTERS 

UIPORO- 177600 

UIPORl- 177602 

UIP0R2- 177604 

UIP0R5- 177606 

UIP0R4- 177610 

UIPDR5- 177612 

UIP0R6- 177614 

UIPDR7- 177616 

{♦USER "0" PAGE DESCRIPTOR REGISTORS 

UDPORO- 177620 
UOPORl- 177622 
U0P0R2- 177624 
UDP0R3- 177626 
U0P0R4- 177650 
U0P0ft5- 177632 
UDPDR6- 177634 
UDP0R7> 1776S6 

t*USER "I" PAGE ADDRESS REGISTERS 

UIPARO" 177640 

UIPARI- 177642 

UIPAR2" 177644 

UIPAR5- 177646 

UIPAR4- 177650 

UIPAR5- 177652 

UIPAR6- 177654 

UIPAR7- 177656 

j*USER "0" PAGE ADDRESS REGISTERS 

UOPARO' 177660 
UOPARl- 177662 
UDPAR2' 177664 



;sEI1ULAT0R TRAP (EMT) **ERROR** 
! i "TRAP" TRAP 
jjTTY KEYBOARD VECTOR 
:sTTY PRINTER VECTOR 
; J PROGRAM INTERRUPT REQUEST VECTOR 



Li 
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177666 


424 


177670 
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172216 


459 




440 




441 




442 


1 72220 


445 


172222 
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172224 


445 


172226 


446 


172250 


447 
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448 


172254 


449 


172236 


450 




451 




452 
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454 


172242 


455 


172244 


456 


172246 


457 


172250 


458 


172252 


459 


172254 


460 


172256 


461 




462 




465 




464 


172260 


465 


172262 


466 


172264 


467 


172266 


468 


172270 


469 


172272 


470 


172274 


471 


172276 


472 




475 




474 




4 75 


172500 


4 76 


172502 


477 


172504 


4 78 


172306 
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U0PAR3- 177666 
U0PAR4' 177670 
U0PAR5- 177672 
UDPAR6- 177674 
U0PAR7- 177676 

; •SUPERVISOR "I" PAGE DESCRIPTOR REGISTERS 

SIPDRO- 172200 

SIPORl- 172202 

SIPDR2- 172204 

SIP0R5- 172206 

SIP0R4- 172210 

SIPDR5- 172212 

SIPDR6* 172214 

SIPDR7. 172216 

; ♦SUPERVISOR "D" PAGE DESCRIPTOR REGISTERS 



SEQ 0011 



SOPDRO- 
SDPDRl- 
SC">DR2- 
S0PDR3- 
S0P0R4- 
S0PDR5- 
SDP0R6- 
S0P0R7- 



172220 
172222 
172224 
172226 
172230 
172232 
172234 
172236 



{•SUPERVISOR "I" PAGE ADDRESS REGISTERS 

SIPARO" 172240 
SIPARl- 172242 
SIPAR2- 172244 
SIPAR3- 172246 
SIPAR4- 172250 
SIPAR5- 172252 
SIPAR6- 172254 
SIPAR7- 172256 

{•SUPERVISOR "0" PAGE ADDRESS REGISTERS 

SDPARO- 172260 
SOPARl- 172262 
S0PAR2- 172264 
S0PAR3- 172266 
S0PAR4- 172270 
SDPAR5- 172272 
S0PAR6- 172274 
SDPAR7- 172276 

J •KERNEL "I" PAGE DESCRIPTOR REGISTERS 

KIPDRO- 172500 
KIPDRl- 172502 
KIPDR2- 172504 
KIPDR5- 172506 



Mi 



GL06AL AREAS MACUl 30A(1052 ) 04 APR -84 10:58 PAGE 12 



KOJllA.MAC 


03-APR 84 11:36 


rCNORY NANAGEnENT DEFINITIONS 


4 79 


172310 


KIP0R4- 172510 


480 


172312 


KIP0R5- 172312 


481 


172314 


KIP0R6- 172314 


482 


172316 


KIP0R7- 172316 


483 






484 




i*KERNEL "D" PAGE DESCRIPTOR REGISTERS 


485 






486 


172320 


KDPDRO- 172320 


487 


172322 


KOPDRl- 172322 


488 


172324 


KDPDR2- 172324 


489 


172326 


KDPDR3* 172326 


490 


1 72330 


KDPDR4- 172330 


491 


172332 


K0PDR5- 172332 


492 


172334 


K0P0R6- 172334 


493 


172336 


KDP0a7" 172356 


494 






495 




t«KERNEL "I" PAGE ADDRESS REGISTERS 


496 






497 


172340 


KIPARO* 172340 


498 


172542 


KIPARl- 172342 


499 


172544 


KIPAR2" 172344 


500 


172546 


KIPAR5* 172546 


501 


172550 


KIPAR4" 172550 


502 


172552 


KIPAR5- 172552 


503 


172554 


KIPAR6' 172554 


504 


172556 


KIPAR7- 172556 


505 






506 




;*KERNEL "0" PAGE ADDRESS REGISTERS 


507 




508 


172560 


KOPARO- 172560 


509 


172562 


KDPAR1> 172562 


510 


172564 


KDPAR2" 172564 


511 


172366 


K0PAR5- 172566 


512 


172570 


KDPAR4- 172570 


513 


172572 


KDPAR5- 172572 


514 


172574 


K0PAR6* 172574 


515 


172376 


K0PAR7- 172576 


516 






517 




! THESE ARE FLOATING POINT ACCUMULATOR EQUATES 


518 


000000 


ACO- KO 


519 


000001 


ACl- *1 


520 


000002 


AC2- *2 


521 


000005 


AC3- «5 


522 


000004 


AC4- «4 


523 


000005 


AC5- «5 


524 


000006 


AC6- «6 




000007 


AC7* It! 


526 




e ^ Y 

527 


000244 


FPVEC" 244 


528 




529 




: THESE ARE CACHE REGISTER EQUATES 


K 9 y\ 

530 


177746 


CCR- 177746 j CACHE CONTROL REGISTER 


531 


177744 


MSER- 177744 jMEMORr SYSTEM ERROR REGISTER 


532 


177752 


HITMIS- 177752 iHIT/MISS REGISTER 


533 


177766 


CPEREG- 177766 iCPU ERROR REGISTER 


534 





GLOBAL AAEAS mcni 30AC1052) 
KOJllA.MAC 03-APR-84 11: S6 



Nl 
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MEMORY MANAGEMENT DEFINITIONS 



SEQ 0015 



555 

536 

537 

538 

539 

540 

541 

542 

543 

544 

545 

546 

547 

548 

549 

550 

551 

552 

553 

554 

555 

556 

557 

558 

559 

560 

561 

562 

563 

564 

565 

566 

567 

568 

569 

570 

•571 

572 

573 

574 

575 

576 

577 

578 

579 

560 

581 

562 

583 

584 

565 

586 

587 

588 

589 

590 



000000 
000002 

000004 
000006 

000174 
000176 



000046 
000052 



177546 
177560 
177562 
177564 
177566 
000000 
000001 
000001 
002000 



001000 
000000 



000000 



000000 
000737 

001716 
000340 
000174 
000000 
000000 



000200 000137 001716 



000204 
000046 
011034 
000052 
000000 
000204 



;MISCELANFOUS DEFINITIONS 



BEVENT- 177546 
RCSR- 177560 
RBUF- 177562 
XCSR- 177564 
XBUF« 177566 
ERRTN' HALT 
»TSTNU-1 
ERRNUM- 1 
ASUREG- 2000 



sBEVENT CONTROL REGISTER 



; INITIALIZE ERROR NUMBER COUNTER 
:SUR FOR APT NO BEVENT TESTING 



J THIS EQUATE DEFINES ^HE BOTTOM OF THE PROGRAM STACK POINTER 
STBOT- 1000 

.ASECT 

.SBTTL TRAP CATCHER 
.-0 

*ALL UNUSED LOCATIONS OF THE VECTOR AREA CONTAIN 

•A ".♦2. lOT" SEQUENCE TO CATCH AND PROCESS ILLEGAL 

*TRAPS AND INTERRUPTS THAT MIGHT OCCUR. 

♦THE lOT TRAP WHICH IS TAKEN ON THE ILLEGAL TRAP /INT 

♦TRAPS TO THE >SCOPE ROUTINE UHICH CIF THE RETURN PC IS 

♦LESS THAN 1002) JUMPS TO THE $ERROR ROUTINE. 

♦THE lERROR ROUTINE MILL REPORT THE ERROR AS FOLLOWS: 

;♦ PC-YYYYYY UNEXPECTED TRAP TO XXX 

(♦AND RETURN TO THE PROGRAM AT PC-TTYTYT»2 

{♦UHERE XXX-LOCATION OF ILLEGAL TRAP 

»♦ YYYYYY-PC AT TIME OF TRAP 

{♦NOTE: IF THE PROCESSOR IS NOT AN 11/05 THE PROGRAM 

!♦ CAN BE STARTED AT ADDRESS 0 AS WELL AS ADDRESS 200. 



>40CAT: HALT 



.SBTTL 
.SBTTL 



: jHALT 

; :BRANCh TO 177700 £ TIME OUT CNOT ON 
11/05) 

;;VECTOR TO STARTING ADDRESS 
; ;WITH PRIORITf LEVEL 7 



::S0FTWARE OISPLAt REGISTER 
i {SOFTWARE SWITCH REGISTER 

STARTING AODRES(ES) 
JHP MSTART ::G0 TO START OF PROGRAM 
ACTll HOOKS 



BR 


.-100 


.WORD 


START 


.WORD 


340 


.-174 




0ISPREG:.U0RO 


0 


SUREG: .UORD 


0 



sHOOKS REQUIRED BY ACTll 
»SVPC«. 
.-46 
>ENDAD 
.-52 

.WORD 0 
.-ISVPC 
.SBTTL APT PARAMETER BLOCK 



:SAVE PC 

!:l)SET L0C.46 TO ADDRESS OF lENDAD IN .»EOP 

{:2)SEr L0C.52 TO ZERO 
s: RESTORE PC 



i 



:SET LOCATIONS 24 AND 44 AS REQUIRED FOR APT 



GLOSAt. 


AREAS 


HACUl 


KOJllA.MAC 05 APR S4 








59^ 




000204 


595 




000024 


594 


000024 


000200 


595 




000044 


596 


000044 


000204 


59- 




000204 


598 






599 






600 






601 






b02 


000204 




60S 


000204 


000000 


604 


000206 


J%/% m AAA 

001000 


605 


000210 


000001 


606 


000212 


000004 


607 


000214 


000000 


609 


000216 


AAAA 4 il 

000014 








610 




000002 


611 


000002 


000000 


612 


000004 


000006 


613 


000006 


000004 


614 




000204 


615 




001000 



04 APR 84 10:58 PAGE 14 
APT PARAMLTER BLOCK 



SEO 0014 



I t ••••••••••••• 

.IX-. 

.-24 

200 

.-44 

•APTHOR 

.-.♦X 

! SETUP APT 
I INTERFACE 



1 1 SAVE CURRENT LOCATION 

llSET POUER FAIL TO POINT TO START OF PROGRAM 
liFOR APT START UP 

tiPOINT TO APT INDIRECT ADDRESS PNTR. 
1 1 POINT TO APT HEADER BLOCK 
I iRESET LOCATION COUNTER 



PARAMETER 
SPEC. 



BLOCK AS DEFINED IN THE APT-PDPll DIAGNOSTIC 



♦APTHO 

IMIBTS 

tMBADR 

ITSTM: 

♦PASTM: 

lUNITM: 



tx 



.WORD 
.WORD 
.UORO 
.WORD 
.WORD 
.WORD 



0 
6 
4 



'.♦X 
•1000 



0 iiTUO HIGH BITS OF 18 BIT MAILBOX AODR. 
JMAIL hADDRESS of APT MAILBOX (BITS 0-15) 

1 jjRUN TIM OF LOr«EST TEST 

4 tiRUN TIME IN SECS. OF 1ST F-ASS OK 1 UNIT (QUICK vERIFt) 

0 jjADOITIONAL RUN TIME (SECS) OF A PAGS FOR EACH ADDITIONAL 

SETENO SMAlL/2 i (LENGTH MAILBOX -ETABLEC WORDS) 
(SAVE CURRENT LOCATION COUNT 



sSET UP SOME VECTORS 
:RESTOHE LOCATION COUNT 



U.OeAi ARfAS HAC>11 5t»A(lOV 
KDJllA.MAC 05 APR M l\.:%€, 

tflb 

616 
6l«» 
b20 
621 
b22 
623 
624 
625 

626 001000 

627 001000 000000 
626 001002 000000 

629 001004 000000 

630 001006 000000 

631 001010 000000 

632 001012 000000 

633 001014 000000 

634 001016 000000 

635 001020 

636 001020 000 

637 001021 000 
636 001022 002000 

639 001024 000000 

640 001026 000000 
641 

642 
643 
644 
645 
646 

64 7 001030 

646 

649 

650 

651 

652 

6b5 001030 000000 
654 001032 000000 
655 
656 

657 001034 000000 
656 0010S6 000000 

659 001040 000000 

660 001042 000000 

661 001044 000000 

662 001046 177570 

663 OOlOSO 177570 

664 001052 000000 
665 

666 001054 000000 

667 001056 000000 
666 001060 000000 

669 001062 000000 

670 001064 000000 
671 



.SBTTL GLOBAL DATA SECTION 



SFQ OOl' 



I THE GLOBAL DATA SECTION CONTAINS DATA THAT ARE USED 
[ IN MORE THAN ONE TEST. 

1 SBTTL APT MAILBOX-ETABLE 



.EVEN 

«MAIL : 

«MSGTY: 

«FATAL: 

ITESTN: 

«PASS: 

«OEVCT: 

♦UNIT: 

tMSGAD: 

«MSGLG: 

*E TABLE: 

*ENV: 

tENVM: 

*SUREG: 

*USWR: 

ICPUOP: 

!♦ 

!♦ 

I* 

t* 

J* 

*ETENO: 
.MEXIT 



.UORD 
.UORO 
.WORD 
.UORO 
.WORD 
.UORO 
.UORO 
.UORD 

.BYTE 
.BYTE 
.UORD 
.UORD 
.UORO 



AMSGTY 

AFATAL 

ATESTN 

APASS 

ADEVCT 

AUNIT 

AHSGAO 

AHSGLG 

AENV 

AENVH 

ASUREG 

AUSUR 

ACPUOP 



I APT MAILBOX 

I MESSAGE TYPE CODE 

I FATAL ERROR NUMBER 

I TEST NUMBER 

I PASS COUNT 

I DEVICE COUNT 

J I/O UNIT NUMBER 

I MESSAGE ADDRESS 

(MESSAGE LENGTH 

I APT ENVIRONMENT TABLE 

(ENVIRONMENT BYTE 

lENVlRONMENT MODE BITS 

I APT SUITCH REGISTER 

;USER SUITCHES 

iCPU TYPE, OPTIONS 
BITS 15-11-CPU TYPE 

11/04-01. 11/05-02. 11/20-03. 11/40-04. 11/45-05 
11/70-06. PDQ-07.Q-10 
BIT 10 -REAL TIME CLOCK 
BIT 9 -FLOATING POINT PROCESSOR 
BIT 6 -MEMORY MANAGEMENT 



; THESE LOCATIONS ARE USED IN MORE THAN ONE TEST TO STORE VECTOR DATA 
tUHEN THE TEST NEEDS TO HAVE AN ERROR CONDITION RESPOND DIFFERENTLY 
(FROM THE DEFAULT RESPONCE. 
SLOCOO: .UORD 0 
SLOCOl: .UORO 0 



I THESE 

EXPDAT: 

RECOAT: 

COUNT: 

FLAG: 

ERRCNT : 

SUR: 

DISPLAY 

«ERFLG: 

I THESE 

DCOUNT: 

ALLCTR: 

LOOP IN: 

SAVSPl : 

SAVSP2: 



LOCATIONS ARE USED IN MORE THAN ONE TEST TO STORE UORKING DATA. 
.UORO 0 J STORES EXPECTED (GOOD) DATA FOR COMPARISONS 

.UORO C (STORES RECIEVEO DATA TO BE VERIFIED 

.UORO 0 (ERROR INDICATOR FOR FLOATING POINT TESTS 

.UORD 0 (USED TO STORE "FLAG" CONDITIONS 

.UORD 0 (STORAGE FOR ERROR COUNT 

.UORD DSUR (STORAGE FOR SUITCH REGISTER ADDRESS 

.UORD DDISP (STORAGE FOR DISPLAY REGISTER ADDRESS 

.UORO 0 (ERROR FLAG 

LOCATIONS ARE USED BY MORE TnAN ONE TEST AS LOOP COUNTERS 
.UORO 0 



.UORD 
.WORD 
.UORO 
.UORD 



0 
0 
0 
0 



(STORAGE FOR UNEXPECTED TRAP DATA 



uLOBAi. 




04 APR B4 10: 

APT mATC 


i8x mLt' 


672 


001066 


000000 


ruDSEQ : 


. UUND 


Q 


673 


uulo fo 


AAAAAA 


AOOLSB: 


tjnDn 
. mUHU 


U 


674 


UUlV 'C 


AA^^AA 


RITEOA: 


unon 


rt 
v 


675 




AAAAAA 


NEMOAT : 




n 


676 


/%A4 ATX. 

001076 


AAAAAA 


CUROAT: 


unpn 


n 

V 


677 


001 lOO 


AAAAAA 

oooooo 


rSTAOO: 


unon 

. WUKU 




678 


OOilO^ 


AAAAAA 

oooooo 


LSTADD: 


. WUNU 


A 
V 


679 


AA4 4 Ajl 

0011O4 


AAAAAA 


CURAOO: 


Linon 

. WUHU 


r\ 
\J 


680 




AAAAAA 


LOUAOD: 




V 


681 


AA1 1 1 A 




GOOOAD: 


umn 


A 


682 




itAAAAA 


TSTADO: 




V 


683 


AA1 1 1 A 


Wvvvv 


NEUADD: 




A 
V 


684 


AA1 11^ 


AAAAAA 


SOFTER: 




A 
V 


685 






SOFTRE: 




n 


686 












687 












688 












639 












690 












691 












692 












693 












694 






5!!!!!THIS IS 


IT. 


695 


001122 




TSTLOC: 






696 


001122 


000020 




.BLKU 


20 



02 

SEO 0016 



USED TO INDICATE DIRECTION OF ADDRESSING 
STORES LEAST SIGNIFICANT BIT FOR RAH TESTS 
STORES WRITE DATA FOR RAH TESTS 
DATA STORE FOR RAH TESTS 
DATA STORE FOR RAH TESTS 

STORES FIRST ADDRESS IN ADDRESSING SEQUENCE 
STORES LAST ADDRESS IN ADDRESSING SEQUENCE 
STORES CURRENT ADDRESS FOR RAH TESTS 
STORES LOW ADDRESS FOR RAH TESTS 
STORES GOOD ADDRESS FOR RAH TESTS 
ADDRESS STORE FOR RAM TESTS 
ADDRESS STORE FOR RAM Tf.ST 
;USED TO STORE SOFT ERRO^ COUNT 
lUSED TO HOLD RETRY ADDRESS ON SOFT ERRORS 



PROGRAM TEST LOCATION AND WRITE BUFFER !!!!!!!!!!!!!!!•!! 



GLOBAL AftfAS 
KOJllA.MAC 

697 
690 
699 
00 
01 
02 
05 
'04 
05 
06 
07 
00 
09 
10 
11 
12 
13 
14 
IS 
16 
17 
18 
19 
20 
21 
22 
'23 
'24 
2S 
26 
27 
28 
29 
30 
31 
32 
33 
34 
35 
36 
37 



HACill S0A(1052) 
03 APR 84 11:36 



be' 



04 APR '84 10:38 PAGE 17 
GLOBAL TEXT SECTION 



SEQ 0017 



001162 
001170 
001176 
001204 
001212 
001220 
001224 
001232 
001240 
001246 
001254 
001262 
001270 
001276 
001304 
001312 
001320 
001325 
001332 
001340 
001346 
001352 
001360 
001366 
001374 
001402 
001403 
001410 



005015 
044502 
020075 
020122 
052111 
042524 
005015 
044502 
020075 
020122 
020105 
047101 
020107 
040504 
046105 
044514 
051505 
015 
042510 
042524 
047522 
005015 
020122 
005015 
020122 
000 
015 
000 
001412 



042523 
020124 
020061 
034061 
051440 
000115 
042523 
020124 
020061 
040503 
040522 
020104 
040522 
040524 
040511 
054524 
051524 
041412 
051440 
020115 
000122 
051105 
020043 
051105 
041520 



020124 
020070 
047506 
041040 
051531 

020124 
020071 
047506 
044103 
020115 
040524 
020115 
051040 
044502 
052040 
000 
041501 
051531 
051105 

047522 
000075 
047522 
036440 



.SBTTL GLOBAL TEXT SECTION 



I THE GLOBAL TEXT SECTION CONTAINS FORMAT STATEMENTS. 
; «SSAGES. AND ASCII INFORMATION THAT ARE USED IN 
s MORE THAN ONE TEST. 



J FORMAT STATE«NTS USED IN PRINT CALLS 

0PriSG2: .ASCIZ <CR><LF>/SET BIT 8 - 1 FOR 18 BIT SrSTEM/ 

0PMSG3: .ASCIZ <CR><LF>/SET BIT 9 - 1 FOR CACHE RAM AND TAG RAM DATA RELIABILITr TESTS/ 



020012 020040 



ERRHSG: .-.ASCIZ *CR><LF>/CACHE SYSTEM ERROR/ 

ERRl: .ASCIZ <CR><LF>/ERRDR • -/ 

ERR2: .ASCIZ <CR><LF>/ERR0R PC --/ 

ICRLF: .ASCIZ <CR><LF>/ / 
.EVEN 



r2 

GLOBAi ARFAi NAC>11 50A(1052) 04 APR-84 10:38 PAGE 18 ^EQ 0018 

KOJllA.MAC OS APR 84 11:56 GLOBAL ERROR REPORT SECTION " 

756 .SBTTL GLOBAL ERROR REPORT SECTION 

740 

741 t THE GLOBAL ERROR REPORT SECTION CONTAINS MESSAGE PRINTING AREAS 

742 , USED BY MORE THAN TEST TO OUTPUT ADDITIONAL ERROR INFORMATION. 
745 J - - 

744 





AREAS 


MAC* 11 




KDJllA 


MAC 05 -APR -84 


11 : 36 










746 








74 ■* 








748 








749 








750 








751 








752 








75 S 








754 








755 








756 








757 








758 








759 








760 








761 








762 








765 








764 








765 








766 








767 


001412 


012701 


172240 


766 


001416 


004767 


000132 


769 


001422 


012701 


1 72260 


770 


001426 


004767 


000122 


771 


001432 


012701 


172340 


772 


001456 


004 767 


000112 


773 


001442 


012701 


172360 


774 


001446 


004767 


000102 


775 


001452 


012701 


177640 


776 


001456 


004767 


000072 


777 


001462 


012701 


177660 


778 


001466 


004767 


000062 


779 


001472 


012701 


177600 


780 


001476 


004767 


000102 


781 


001502 


012701 


177620 


782 


001506 


004767 


000072 

WW ■ Cv 


783 


001512 


012701 


172300 

X ' C WW 


784 


001516 


004767 


WWwC 


785 


001522 


012701 


172S20 


786 


001526 


004767 


000052 

ww^c 


787 


001532 


012701 


172200 


788 


001536 


004767 


000042 


789 


001542 


012701 


172220 


790 


001546 


004^67 


000032 


791 


001552 


000207 





G? 
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GLOBAL SueROUTINES SECTION 

.SBTTL GLOBAL SUBROUTINES SECUON 

I • ♦ 

t THE GLOBAL SUBROUTINES SECTION CONTAINS THE SUBROUTINES 
8 THAT ARE USED IN MORE THAN ONE TEST. 
> - - 

! ♦ ♦ 

: FUNCTIONAL DESCRIPTION: 

! SUBROUTINE TO INITIALIZE ALL THE MMU REGISTERS 

i INPUTS: NONE 

; OUTPUTS: NONE 

: SUBORDINATE ROUTINES USED: LOAD PARS 
; LOAD PORS 

; FUNCTIONAL SIDE EFFECTS: NONE 



! CALLING SEQUENCE: JSR PC.INITMM 



INITMM: MOV 


•172240, Rl 


:BASE 


ADDRESS 


OF 


SIPARS 


JSR 


PC. LOPARS 










MOV 


♦172260. Rl 


:BASE 


ADDRESS 


OF 


SDPARS 


JSR 


PC . LDPARS 










MOV 


«172340.R1 


sBASE 


ADDRESS 


OF 


KIPARS 


JSR 


PC. LOPARS 










MOV 


•172560, Rl 


:BASE 


ADDRESS 


OF 


KDPARS 


JSR 


PC, LOPARS 










MOV 


•177640, Rl 


:BASE 


ADDRESS 


OF 


UIPARS 


JSR 


PC, LOPARS 










MOV 


•177660, Rl 


sBASE 


ADDRESS 


OF 


UDPARS 


JSR 


PC . LDPARS 










MOV 


•177600, Rl 


iBASE 


ADDRESS 


OF 


UIPDRS 


JSR 


PC, LOPDRS 










MOV 


•177620, Rl 


sBASE 


ADDRESS 


OF 


UDPDRS 


JSR 


PC , LOPDRS 










MOV 


•172500, Rl 


;BASE 


ADDRESS 


OF 


KIPDRS 


JSR 


PC. LOPDRS 










MOV 


•1 72520. Rl 


;BASE 


ADDRESS 


OF 


KDPDRS 


JSR 


PC . LOPDRS 










MOV 


•1 72200. Rl 


:BASE 


ADDRESS 


OF 


SIPDRS 


JSR 


PC. LOPDRS 










MOV 


• I 72220. Rl 


:BASE 


ADDRESS 


OF 


SOPORS 


JSR 


PC. LOPDRS 










RTS 


PC 


; RE TURN 







GLOBAL AREAS MACyII S0A(1052) 
KOJllA.MAC 05 APR 84 11:36 

792 
793 
794 
795 
796 
797 
798 
799 
800 
801 
802 
805 
804 
805 
806 
807 
808 
809 
810 
811 

812 001S54 012702 000006 

813 001560 005003 

814 001562 010321 

815 001564 062703 000200 

816 001570 077204 

817 001572 012721 002000 

818 001576 012711 177600 

819 001602 000207 



< APR 64 10:38 
GLOBAL §uei 



PAGE < 
IROOTIME! 



SECTION 



SEQ 0020 



i FUNCTIONAL DESCRIPTION: 

; SUBROUTINE TO INITIALIZE ALL THE MMU PAGE ADDRESS REGISTERS (PARS), 
s THIS ROUTINE MILL INITIALIZE 8 PARS STARTING AT A BASE ADDRESS 

i SUPPLIED BY THE CALLING ROUTINE. PARS 0 5 UiLL BE HAPPED FROH 

ADDRESS 0 TO ADDRESS 137777 (0-24K). PAR 6 UILL BE HAPPED FRQH 
ADDRESS 200000 TO 217777 AND PAR 7 WILL BE HAPPED TO THE I/Q 
J PAGE . 

; INPUTS: 

RI CONTAINS THE BASE ADDRESS Or THE NEXT 8 PARS TO BE INITIALIZED 
OUTPUTS: NONE 

SUBORDINATE ROUTINES USED: NONE 
FUNCTIONAL SIDE EFFECTS: NONE 



CALLING SEQUENCE: 



LDPARS: HOV «6. 

CLR R3 

1(: HOV R3. 

ADO *200. 

SOB R2. 

HOV •2000. 

HOV #177600. CRl) 

RTS PC 



JSR 
R? 

(Rl)» 
R3 
It 

CRD* 



PC. LDPARS 



5 LET LOOP COUNTER COUNT FIRST 6 PARS 
; INITIALIZE INDEX VALUE 
I LOAD PARS 

i INDEX IN 4K INCREHENTS 
(LOAD FIRST SIX PARS 
(LET PAR6 HAP TO 200000 
{LET PAR 7 HAP TO I/O PAGE 
i RE TURN 



GLOBAL AAEAS MACtll 30A(1052) 
KOJllA.HAC OS-APR 84 11:36 



820 
821 
622 
625 
624 
625 
826 
827 
828 
829 
630 
831 
832 
833 
834 
835 
836 
837 
838 
839 
840 
841 
842 
843 
844 
845 
846 



c 
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GLOBAL SUBROUTINES SECTION 

jVuNCTIONAL DESCRIPTION: 

SUBROUTINE TO INITIALIZE ALL THE MMU PAGE OECRIPTOR REGISTERS (PDRS). 
THIS ROUTINE WILL INITIALIZE 8 PDRS STARTING AT A BASE ADDRESS 
SUPPLIED B»^ THE CALLING ROUTINE. PDRS O-b WILL BE INITIALIZED TO 
4K READ/URITE BYPASS AND PDRS 6 AND 7 WILL BE INITIALIZED TO 
4K READ/URITE NO BYPASS. 

NOTE: THERE IS NO NEED TO BYPASS ON 1/0 PAGE REFERENCES BECAUSE 
THE CACHE DOES NOT ALLOCATE ANY OF THESE REFERENCES. 

t INPUTS: 

i Rl CONTAINS THE BASE ADDRESS OF THE NEXT 8 PDRS TO BE INITIALIZED 



SEQ O021 



001604 012702 000006 

001610 012721 177406 

001614 077203 

001616 012721 077406 

001622 012711 077406 

001626 000207 



; OUTPUTS: NONE 

t SUBORDINATE ROUTINES USED: NONE 
; FUNCTIONAL SIDE EFFECTS: NONE 



: CALLING SEQUENCE: 



JSR 



PC.LDPARS 



LOPDRS: MOV 
1»: MOV 
SOB 
MOV 
MOV 
RTS 



«6. R2 
♦177406. (Rl)» 
R2. 1% 
•77406. (Rl)» 
•77406. (Rl) 
PC 



I LET LOOP COUNTER COUNT FIRST 6 PARS 
LOAD PDRS WITH 4K READ/URITE BYPASS 
LOAD FIRST SIX PDRS 
LET PAR6 BE 4K READ/URITE NO BYPASS 
LET PAR7 BE 4K READ/URITE NO BYPASS ALSO 

(RETURN 



J2 
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M7 
846 
849 
850 
851 
852 
85S 
854 
855 
856 
857 
858 
859 
860 
861 
862 
863 
864 
865 

866 001650 

867 001630 104000 

868 001632 000001 

869 001634 001325 
870 

871 001636 000002 
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GLOBAL SUBROUTIKCS SECTION 



FUNCTIONAL DESCRIPTION: 

SUBROUTINE TO HANDLE PARITY ERROR ABORTS FROM THE RAM STORE RAH TESTS. 

s INPUTS: 

i rCHORY SYSTEH ERROR REGISTER CONTAINS BITS INDICATING FAILURE 

t OUTPUTS: NONE 

i SUBORDINATE ROUTINES USED: NONE 

; FUNCTIONAL SIDE EFFECTS: NONE 

CALLING SEQUENCE: CALLED BY PARITY ABORT 

MOV 8*114, SLOCOO iSAVE CONTENTS OF PARITY ABORT VECTOR 
MOV MISPAR. S«114 iLET VECTOR POINT TO PARITY ABORT ROUTINE 



(CACHE PARITY ERROR OCCURS) 



RAMPAR: 



ERROR 
.WORD 
.WORD 

RTI 



1 

ERRMSG 



:ALL ERRORS TO TRAP TO EMT VECTOR 
(UNIQUE ERROR NUMBER 
{ADDRESS OF ERROR MESSAGE 

sCACHE SYSTEM ERROR 

{RETURN 



SEQ 0022 



I<2 



GLOBAL AREAS 
KOJllA.MAC 

872 
873 
8^4 
875 
876 
877 
878 
879 
880 
881 
882 
863 
664 
885 
886 
887 
886 
889 
890 
891 
892 
893 
894 
895 
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GLOBAL SUBROUTINES SECTION 



SEQ 0023 



i ♦ ♦ 



FUNCTIONAL DESCRIPTION 

SUBROUTINE TO HANDLE SOFT ERRORS THAT MAY BE CAUSED BY 
APT SYSTEM MONITORING DURING THE CACHE TEST. FOR EXAMPLE: 
IF A TEST IS USING THE HIT/MISS REGISTER TO MONITOR CACHE 
ACTIVITY. AND APT BREAKS IN, THE HIT/MISS REGISTER WILL BE 
MODIFIED. WHEN THE TEST RESUMES, A FALSE ERROR MAY BE CAUSED Bi 
THE CORRUPTED HIT/MISS REGISTER. LIKEWISE, A TEST MAY INITIALIZE 
CACHE TO A KNOWN STATE (ALLOCATED/NOT ALLOCATED)! AN APT 
BREAK MAY CAUSE CACHE STATE TO ALTER AND THE TEST TO FAIL. 

INPUTS 

SOFTRE CONTAINS RETURN ADDRESS TO BEGINNING OF TEST »4 TO 
TEST AGAIN ON ERROR 

s OUTPUTS: NONE 

: SUBORDINATE ROUTINES USED: NONE 

; FUNCTIONAL SIDE EFFECTS: NONE 

.CALLING SEQUENCE: JSR PCAPTSFT 



896 


001640 


122767 


000001 


177152 


APTSFT: 


CMPB 


«APTENV,tENV 


897 


001646 


001022 








BNE 


1» 


898 


001650 


005767 


177242 






TST 


SOFTER 


899 


001654 


001017 








BNE 


1» 


900 


001656 


062706 


000002 






ADD 


«2.R6 


901 


001662 


005267 


177230 






INC 


SOFTER 


902 


001666 


005037 


177744 






CLR 


8«MSER 


903 


001672 


005037 


177572 






CLR 


8«SR0 


904 


001676 


005037 


177766 






CLR 


a«CPEREG 


905 


001702 


012737 


000400 


177746 




MOV 


«eiT08.a«CCR 


906 


001710 


000177 


177204 






<JMP 


aSOFTRE 


907 


001714 


000207 






11: 


RTS 


PC 



908 



ARE WE IN APT MODE? 

NO SOFT ERRORS IF NOT IN APT MODE 

HAS A SOFT ERROR ALREADY OCCURRED? 

IF YES GO TO ERROR 

CLEAN UP THE STACK TO RETRY TEST 

INCREMENT THE SOFT ERROR COUNTER 

CLEAR THE MSER 

TURN OFF MMU 

CLEAR THE CPU ERROR REGISTER 
FLUSH THE CACHE. CLEAR THE CCR 
RETRY TEST 

GO TO ERROR. ERROR OCCURRED MORE 
THAN ONCE OR NOT IN APT MODE. 



GLOBAL 


AREAS 


met 11 


30AC1052) 04 APR 84 10 


:38 PAGE 24 




KOJllA.MAC 03 -APR 84 


11:36 




GLOBAL 


SUBROUTINES SECTION 




OAQ 










START: 












A1 97T7 


000014 


177746 




MOV 


♦14.8«CCR 


;SFT CACHE TO FORCE MISS 












.SBTTL 


INITIALIZE THE COmON TAGS 




<VI1 79A 




001000 






MOV 


OSTACK.SP 


II SETUP THE STACK POINTER 








11 INITIALIZE A 


FEW VECTORS 








rtl 97X7 
vie f » 


013314 


000030 




MOV 


«$ERR0R.8»EMTVEC 


iiEMT VECTOR FOR ERROR ROUTINE 




Oni 7YA 


A1 97'X7 


000340 


000032 




MOV 


♦340.SM>EMTVEC»2 


J iLEVEL 7 




(VII 7d4 


0197X7 


012766 


000034 




MOV 


♦$TRAP.8#TRAPVEC 


11 TRAP VECTOR FOR TRAP CALLS 




001 7S9 


01 97'S7 


000340 


000036 




MOV 


<>340,8<>TRAPVEC»2; LEVEL 7 




ftrti 7R.O 
VvX 'Dv 




177022 






CLR 


$PASS 


tiCLEAR THE PASS COUNT 




nni 7#>A 


A16767 


007012 


007002 




MOV 


$EN0CT.$E0PCT 


J ; SETUP END OF -PROGRAM COUNTER 




ftOI 779 
\A/X > « C 




177054 






CLRB 


$ERFLG 


II CLEAR THE ERROR FLAG 












i i SIZE 


FOR A HARDWARE SWITCH REGISTER. IF NOT FOUND OR IT IS 


4?? 










i {EQUAL 


TO A " 


-1". SETUP FOR A SOFTWARE SWITCH REGISTER, 


49^ 


001 776 


013746 


000004 




MOV 


8*ERRVEC.-(SP) 


tiSAVE ERROR VECTOR 




009002 


012737 


002036 


000004 




MOV 


«64$.S«ERRVEC 


II SET UP ERROR VECTOR 




002010 


012767 


177570 


177030 




MOV 


«OSWR.SWR 


11 SETUP FOR A HARDWARE SWICH REGISTER 






012767 


177570 


177024 




MOV 


♦DOISP. DISPLAY 


II AND A HARDWARE DISPLAY REGISTER 


4P7 


009024 


022777 


177777 


177014 




CMP 


«-1.8SWR 


1 1 TRY TO REFERENCE HARDWARE SWR 


926 


002032 


001012 








BNE 


66$ 


iiBRANCH IF NO TIMEOUT TRAP OCCURRED 


929 
















tlANO THE HARDWARE SWR IS NOT • 1 


410 


009014 


0O040S 








BR 


65$ 


1 1 BRANCH IF NO TIMEOUT 


431 




019716 

V XC ' xo 


002044 




64$: 


MOV 


♦65$,CSP) 


11 SET UP FOR TRAP RETURN 


439 




000009 








RTI 






933 


009044 


019767 


000176 


176774 


651: 


MOV 


»SWREG.SWR 


1 ; POINT TO SOFTWARE SWR 


434 


0Q90S9 


019767 


000174 


176770 




MOV 


•OISPREG. DISPLAY 


436 


009060 

WCVvV 


0196^7 

VXCV<^ f 


000004 




661 : 


MOV 


(SP)*.S«ERRVEC 


1 {RESTORE ERROR VECTOR 


7 w 

937 










.MACRO 


$$SETMAIL ?$ARG1 




938 












CLR 


$PASS 


11 CLEAR PASS COUNT 


939 












BITB 


♦APTSIZE.$ENVM 


II TEST USER SIZE UNDER APT 


940 












BEQ 


$ARG1 


ijYES.USE NON-APT SWITCH 


941 












MOV 


•$SUREG.SUR 


liNO.USE APT SWITCH REGISTER 


942 










tARGl: 








943 










.ENOn 


$$SETMAIL 




944 


002064 


005067 


176716 






CLR 


$PASS 


iiCLEAR PASS COUNT 


945 


009070 


152767 


000200 


176725 




BITB 


♦APTSIZE,$ENVM 


;iTEST USER SIZE UNDER APT 


946 


002076 










BEQ 


67$ 


iiYES.USE NON-APT SWITCH 


947 


009100 




001022 


176740 




MOV 


«$SWREG.SWR 


iiNO.USE APT SWITCH REGISTER 


948 


002106 








67t: 








949 


002106 


012737 


013314 


000020 




MOV 


•$ERR0R.8«I0TVEC :iSET UP lOT VECTORS 


950 


002114 


019737 


000340 


000022 




MOV 


«340.8«I0TVEC*2 


1 1 TO GO TO ERROR ROUTINE 


951 


002122 


005037 


177766 






CLR 


8*177766 


1 CLEAR CPU ERROR REGISTER 


952 


002126 


104401 


001162 




TYPE 


.0PMSG2 : OPERATOR MESSAGE 2 


953 


002132 


104401 


001224 






TYPE 


.0PMSG3 


1 OPERATOR MESSAGE 3 


954 










.SBTTL 


GET VALUE FOR SOFTWARE SWITCH REGISTER 


955 


002136 


005757 


000042 






TST 


8«42 


II ARE WE RUNNING UNDER XXDP/ACT? 


956 


002142 


001012 

XV 








BNE 


68$ 


IiBRANCH IF YES 


957 


002144 


126727 


176650 


000001 




CMPB 


$ENV.«1 


II ARE WE RUNNING UNDER APT? 


956 


002152 


001406 








BEQ 


68$ 


IiBRANCH IF YES 


959 


002154 


026727 


176666 


000176 




CMP 


SWrl.«SWREG 


1 {SOFTWARE SWITCH REG SELECTED? 


960 


002162 


001005 








BNE 


69t 


IiBRANCH IF NO 


961 


002164 


104406 








GTSWR 




liGET SOFT-SWR SETTINGS 


962 


002166 


000403 








BR 


69$ 




963 


002170 


112767 


000001 


010566 


68$: 


MOVB 


Ol.$AUT0B 


iiSET AUTO-MODE INDICATOR 


964 


002176 








69$: 
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M2 
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GET VALUE FOR SOFTWARE SWITCH REGISTER 



SEQ 0025 



965 
966 
967 
968 
969 
970 
971 
972 
973 
974 
975 
976 
977 
978 
979 
980 
981 
982 
983 
984 
985 
986 
987 
988 
989 
990 
991 
992 
993 
994 
995 
996 
997 
998 
999 
1000 
1001 
1002 
1003 
1004 
1005 
1006 
1007 
1008 
1009 
1010 
1011 
1012 
1013 
1014 
1015 
1016 
1017 
1018 
1019 
1020 



002176 005067 
002202 012737 



176602 
000014 



177746 



RESTART: CuR 
MOV 



$TESTN 
4^14.8«CCR 



iRESET $TESTN TO ZERO 
J SET CACHE TO FORCE MISS 



002210 
002210 
002214 
002222 
002230 
002234 
002242 
002246 
002252 
002256 
002262 
002266 
002272 
002276 



002302 
002302 
002304 
002306 



005267 
013767 
012737 
013704 
012737 
005037 
005037 
005037 
010437 
005037 
005037 
005037 
000167 



104000 
000002 
001325 



002310 000002 



176570 
000114 
001630 
000004 
002302 
177746 
177744 
177752 
000004 
177744 
177766 
001116 
000010 



176606 
000114 

000004 



♦TEST 1 



CACHE REGISTER ACCESS TEST 



CHECK REGISTER ACCESS - THIS TEST WILL VFRIFY EACH OF THE THREE 
CACHE MEMORY SYSTEM REGISTERS CAN BE ACCESSED WITHOUT A TRAP TO 
LOCATION 4CN0N-EXISTANT ADDRESS TRAP) OCCURRING. THE REGISTERS TO 
BE TESTED ARE; 

17777746 
17777744 
17777752 



CACHE CONTROL 
MEMORY SYSTEM ERROR 
HIT/MISS 



EACH REGISTER WILL BE ACCESSED WITH A WRITE CYCL?. 
BGNTST 

SAVE CONTENT OF LOCATION 4 
LET LOCATION 4 POINT TO ERROR ROUTINE 
TEST THE CACHE REGISTERS 
RESTORE CONTENTS OF LOCATION 4 
;EXIT TST 



CACHE REGISTER 
CCR- 
MSER- 
HITMIS- 
t ERROR ROUTINE: 

ENOTST 



ADDRESSES 
17777746 
17777744 
17777752 

ERROR IN CACHE SYSTEM 
RETURN 



TSTl: 



ERROUT : 



INC 
MOV 
MOV 
MOV 
MOV 
CLR 
CLR 
CLR 
MOV 
CLR 
CLR 
CLR 
JMP 



ERROR 
.WORD 
.WORD 

RTI 



♦TESTN 

8O114.SL0C0O 

«RAHPAR.9«114 

S«4.R4 

»ERR0UT.8«4 

8«CCR 

MMSER 

MHITMIS 

R4.S«4 

a«MSER 

8«CPEREG 

8#S0FTER 

TST2 



2 

ERRMSG 



INCREMENT TEST NUMBER 

SAVE PARITY INTERRUPT VECTORS 

SET UP TRAP CATCHER FOR PARITY ERRORS. 

J SAVE CONTENTS OF VECTOR 4 

sLET VECTOR 4 POINT TO ERROR ROUTINE 
TEST ACCESS TO CACHE CONTROL REG 
TEST ACCESS TO MEMORY SYSTEM ERR REG 
TEST ACCESS TO HIT MISS REGISTER 
RESTORE VECTOR 
CLEAR THE MEM SYS ERROR REG 
CLEAR THE CPU ERROR REGISTER 
CLEAR THE SOFT ERROR COUNT 
JUMP OVER DATA TABLES OR SUBROUTINES 
TO NEXT TEST 



J ALL ERRORS TO TRAP TO EMT VECTOR 

: UNIQUE ERROR NUMBER 

I ADDRESS OF ERROR MESSAGE 

I CACHE SYSTEM ERROR 
; CONTINUE FROM ERROR 



N 



CLOBAi AREAS 
KOJllA.HAC 
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Tl CACHE REGISTER ACCESS TEST 



SCO 0026 



1 n3i 

lUc 1 








































1 ASA 
















10911 








1 094 








1 o^n 








lOVl 

i 
















loss 
















loss 
































10S9 








1 AAA 
















• V"tC 
















1044 








104% 
















1047 
















1049 


009^19 






1050 




00596 7 




1051 




019701 

VAC ' V X 


OOOOOl 


105P 




005067 


1 7S490 


1055 


009V9(> 


0101<^7 


1 7SA 14 


1054 


009559 


09A701 

VCO ' 


1 754 10 

X * XV 


1055 


009YYlt 


001 A1 5 




1056 


0O9Y4O 




1 7^d09 


1057 


009544 


001 007 




1058 




059701 

W JC ' V & 


1 7d400 


1059 




001007 

W X W f 




1060 


OOP 554 


I04000 

X Ww 




1061 


002556 


OOOOO^ 




1062 


00P560 


001 Y9S 

Vv & JC^ 




1065 








1064 


00P56P 


000405 




1065 


009564 








OOP 564 






1067 


00P566 

WC vw 


0000*^4 

WWW"* 




1068 


OOP 5 70 

WC <2 f w 


0015P5 




1069 








1070 


00257? 


0227S7 


002000 


1071 


002400 


OOlOOS 




10 7? 


002402 


012757 


000400 


1075 








1074 


002410 


006101 




10-5 


002412 


10554', 




rc 









CTST2: 



♦TEST 2 



TEST CACHE CNTRL REG BITS 



CCR REGISTER BIT TEST - THIS TEST WILL VERirY THAT EACH REAO/WRITE BIT Of 
THE CACHE CONTROL REGISTER CAN BE SET AND CLEARED INDIVIDUALLY AND THAT 
BITS IS - 11 AND BIT 8 ARE ALWAYS READ AS ZEROS. 



BGNTST 

INITIALIZE GOOD DATA 
CLEAR CCR 
00 UNTIL ALL BITS 
WRITE GOOD 
READ CCR 
IF CCR NOT 
IF 



TO 01 



TESTED 
DATA TO CCR 



EQUAL TO GOOD DATA THEN 
CCR EQUAL TO ZERO THEN 

IF GOOD DATA NOT EQUAL 
ERROR IN CACHE SYSTEM 
ENOIF 



TO BITS<15-11> OR BIT 8 THEN 



ENODO 
F.NDTST 



ENOIF 
UPDATE 



ELSE 

ERROR 

ENOIF 



IN CACHE SYSTEM 



TO NEXT BIT 



TST2: 



51: 

177746 41: 
177746 

51: 



INC 


♦TESTN 


MOV 


«1, Rl 


CLR 


CCR 


MOV 


Rl, CCR 


CMP 


CCR. Rl 


BEQ 


41 


TST 


CCR 


BNE 


S» 


BIT 


«1 74400, Rl 


BNE 


4t 


ERROR 




.WORD 


S 


.WORD 


ERRMSG 


BR 


41 


ERROR 




.WORD 


4 


.WORD 


ERRMSG 


CMP 


«2000.S«CCR 


BNE 


51 


MOV 


•400.8«CCR 


ROL 


Rl 


6CC 


11 



, INCREMENT TEST NUMBER 
.INITIALIZE GOOD DATA TO 
I CLEAR CCR 

t WRITE GOOD DATA TO CCR 
tir CCR NOT EQUAL GOOD DATA 
»TMFN 

I IF CCR EQUAL TO ZERO 
J THEN 

iir GOOD DATA NOT BITS<1S-11> OR 8 
I IHEN 

I ALL ERRORS TO TRAP TO EMT VECTOR 

(UNIQUE ERROR NUMBER 

t ADDRESS OF ERROR MESSAGE 

I CACHE SYSTEM ERROR 

t ENOIF 

I ALL ERRORS TO TRAP TO EMT VECTOR 

I UNIQUE ERROR NUMBER 

t ADDRESS or ERROR MESSAGE 

I CACHE SYSTEM ERROR 
I WAS LAST FUNCTION WRITE WRONG TAG PAR? 
I IF NOT GO SHIFT LEFT AND DO NEXT TEbT. 
t FLUSH CACHE TO GET RIO OF WRONG 
I TAG PARITY 
iUPOATE TO NEXT BIT 
iDO UNTIL ALL BITS TESTED 
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TEST CACHE CNTRL REG BITS 



SEQ 002/ 



1077 
1070 
1079 

loao 

1001 
1002 
1003 
1004 
1005 
1006 
1007 
1000 
1009 
1090 
1091 
1092 
1093 
1094 
1095 
1096 
1097 
1090 
109<» 
1100 
1101 
1102 
1103 
1104 

no:; 

1106 
1107 
1108 
1109 
1110 

nil 

1112 
1113 
1114 
1115 
1116 
1117 
1116 
1119 
1120 
1121 
1122 
1123 
1124 
1125 
1126 
1127 
1120 
1129 
USO 
1131 
1132 



002414 



002414 
002414 
002420 
002426 

002432 
002440 



005267 
012737 
005037 

012767 
012737 



002446 012767 



002454 
002460 
002462 
002464 
002466 
002470 



013701 
005701 
001403 
104000 
000005 
001325 



176364 

002550 
001122 

000004 

177777 

000200 
001122 



000114 



175306 
001122 

175272 



CTST5: 



•TEST 3 



TEST FORCE flISS FUNCTION 



FORCE MISS TEST - THIS TEST UILL VERIFY THAT ALL REFERENCES HADE 
WITH EITHER BIT<3> OR BIT<2> OF THE CCR SET CAUSE A CACHE MISS AND 
LEAVE THE CACHE ENTRY UNCHANGED. FIRST WRITE A TEST ADDRESS WITH 
BITS<3:2> CLEARED TQ ALLOCATE CACHE AND SET A KNOWN DATA PATTERN 
INTO THE CACHE. THEN SET BIT<2> AND REWRITE THE SAME ADDRESS WITH 
NEW DATA. NEXT CLEAR BITS<3:2> AND READ THE TEST ADDRESS. THE DATA 
SHOULD EQUAL TO PATTERN I. FINALLY READ THE TEST ADDRESS WITH BIT<3> 
SET. THE DATA SHOULD EQUAL PATTERN 2. A LAST WRITE MUST BE DONE WITH 
BOTH FORCE BITS CLEARED BECAUSE THE CACHE AND MAIN MEMORY HAVE 
DIFFERENT DATA. 



BGNTS? 

WRITE TEST ADDRESS WITH PATTERN I 

<jET CCR BITS<3:2> -0.1 

WRITE TEST ADDRESS WITH PATTERN 2 

CLEAR CCR BIT<3> 

READ TEST ADDRESS 

SAVE HIT/MISS REGISTER DATA 

COMPARE RECEIVED DATA TO PATTERN 1 

IF DATA NOT EQUAL THEN 

ERROR IN CACHE SYSTEM 

ENOIF 

SET CCR<3:2> • 1.0 

READ TEST ADDRESS 

SAVE HIT/MISS REGISTER DATA 

COMPARE RECEIVED DATA TO PATTERN 2 

IF DATA NOT EQUAL THEN 

ERROR IN CACHE SYSTEM 

CLEAR CCR<3:2> 
WRITE TEST ADDRESS 
ENOTST 



TST3; 



INC 


♦TESTN 


1 INCREMENT TEST NUMBER 


MOV 


•FMPARR,S«114 


iSETUP PARITY VECTOR TO POINT TO HANDLER 


CLR 


MTSTLOC 


iWRITE TEST LOCATION WITH PATTERN J. 






lALLOCATES CACHE AND MEMORY WITH ZEROS 


MOV 


06IT02. CCR 


iSET CCR BITS<3:2> • O.ICFORCE CACHE MISS) 


MOV 


•177777. BOTSTLOC 


IWRITE TEST LOCATION WITH PATTERN 2 




iWRITES MEMORY WITH ONES. CACHE STILL ZER05 


MOV 


•200, CCR 


iCLEAR CCR BIT 3 (CLEAR FORCE MISS) 




lANO SET PARITY ABORTS 


MOV 


a«TSTlOC.Rl 


iREAD TEST ADDRESS C SHOULD READ ZEROS IN CACMf > 


TST 


Rl 


{COMPARE RECEIVED DATA TO PATTERN I 


BEQ 


It 


iIF DATAS NOT EQUAL THEN 


ERROR 




|ALL ERRORS TO TRAP TO EMT VECTOR 


.WORD 


5 


{UNIQUE ERROR NUMBER 


.WORD 


ERRMSG 


iAODRES<; or ERROR MESSAGE 



KDJllA.nAC 



MALUl S0A(10S2) 
03-APR 04 11:36 



Ot APR 



ST 



C5 



MISS Fl^CTION 



11S5 
11S4 

11S5 
1156 
1157 

use 

1159 
1140 
1141 
1142 
1145 
1144 
1145 
1146 
1147 
1146 
1149 
1150 
1151 
1152 
1153 
1154 
1155 
1156 
1157 
1156 
1159 
1160 
1161 
1162 
1163 
1164 
1165 
1166 
1167 
1166 
1169 
1170 
1171 
1172 
1173 
1174 
1175 
1176 
1177 
1176 
1179 
1160 
1161 
1182 
1165 
1164 
1165 
1166 
1167 
1168 



002472 
002500 
002S04 
002510 
002512 
002514 
002516 

002520 
002524 
002530 
002534 
002540 
002544 



C02550 
002550 
002552 
002554 



002556 



052767 
015701 
020127 
001403 
104000 
000006 
001325 

005067 
005037 
005037 
005057 
005057 
000167 



104000 
000007 
001325 



000010 
001122 
177777 



175222 
001122 
177744 
177766 
001116 
000006 



175246 I»! 



002556 

002556 005267 

002562 012737 

002570 005057 



176222 
002702 
001122 



2>; 



FMPARR : 



BIS 0BIT05, CCR 

nOV S4»TSTL0C.R1 

CMP Rl, <M77777 

BEQ 2> 

ERROR 

.WORD 6 

. WORD ERRMSG 

CLR CCR 

CLR 80TSTLOC 

CLR a^MSER 

CLP 8<k:pereg 

CLR 8«S0FTER 

JMP TST4 



ERROR 

.MRD 7 

. WORD ERRMSG 



I CACHE ST STEM ERROR 
iSET CCR BITS <5:2> - l.OCrORCE CACHE 
iREAO TEST LOCATION (SHOULD READ ONES 
iCOMPARE RECEIVED DATA TO OATTERN 2 
tIF DATAS NOT EQUAL THEN 
I ALL ERRORS TO TRAP TO EMT VECTOR 
i UNIQUE ERROR NUMBER 
I ADDRESS OF ERROR MESSAGE 

(CACHE SrSTEM ERROR 
iCLEAR CCR 8ITS<5:2> 
I WRITE TEST ADDRESS 
t CLEAR The mem SrS ERROR REG 
J CLEAR THE CPU ERROR REGISTER 
I CLEAR THE SOFT ERROR COUNT 
I JUMP OVER DATA TABLES OR SUBROUTINES 
jTO NEXT TEST 

J PAR ITT ERROR ON FORCE MISS 

I ALL ERRORS TO TRAP TO EMT VECTOR 

I UNIQUE ERROR NUMBER 

(ADDRESS OF ERROR MESSAGE 



MIS'j) 

IN MEMORf ) 



CTST4: 
liTEST 4 



TF.«;t hit MISS REGISTER 



1 1 •••••••••••••••••***••*«••***«*•«****«*••*****•*«••** 

(HIT/MISS REGISTER TEST PART 1 - THIS TEST WILL VERIFY THAT THE HIT/MISS 
(REGISTER CORRECTLY LOGS HITS AND MISSES. FIRST WRITE A TEST ADDRESS WITH 
(BITS<3:2> CLEARED TO ALLOCATE CACHE AND SET A KNOWN DATA PATTERN INTO 
(THE CACHE. THEN SET BIT<2> AND REWRITE THE SAME ADDRESS WITH NEW DATA. 
(NEXT CLEAR CCR BITS<3:2> AND READ THE TEST ADDRESS. THE HIT/MISS REGISTER 
(SHOULD HAVE LOGGED A HIT. FINALLY READ THE TEST ADDRESS PLUS 20000(8? The 
(HIT/MISS REGISTER SHOULD HAVE LOGGED A MISS. 
8 

Ibgntst 

(write test address with pattern 1 
(set ccr btts<3:2> - 0,1 
(write test address with pattern 2 
(clear ccr bit<3> 
(read test address 

(if mit/miss register bit 5 not set then 
(. error in cache system 

(ENOIF 

(READ TEST ADDRESS » 20000(6) 

(IF MIT/MISS REGISTER BIT 5 SET THEN 

( . ERROR IN CACHE SYSTEM 

(END IF 

(ENDTST 

( 

TST4: 



000114 



INC ♦TESTN 

MOV •HMPARR,8«1I4 

CLR 8«TSTL0C 



(INCREMENT TEST NUMBER 

(SETUP PARITY VECTOR TO POINT TO HANDLER 
(WRITE TEST LOCATION WITH PATTERN I 



GLOBAL mi\S 
KOJllA.HAC 



MACUl 50A( 10521 
OS -APR 84 11:36 



D5 



04 APR -84 
T4 



10: Se PAGE 29 

TEST MIT MISS REGISTER 



1189 

1190 
1191 
1192 
1195 
1194 
1195 
1196 
1197 
1198 
1199 
1200 
1201 
1202 
1205 
1204 
1205 
1206 
1207 
1208 
1209 
1210 
1211 
1212 
1215 
1214 
1215 
1216 
1217 
1218 
1219 
1220 
1221 
1222 
1223 
1224 
1225 
1226 
1227 
1228 
1229 
1250 
1251 
1252 
1255 
1254 
1235 
1256 
1257 
1258 
1259 
1240 
1241 
1242 
1245 
1244 



002574 012767 000004 175144 
002602 012757 177777 001122 

002610 012767 000200 175150 



002616 
002622 
002650 
002652 
002654 
002656 

002640 
002644 
002652 
002654 
002656 
002660 

002662 
002662 
002666 
002672 
002676 



002702 
002702 
002704 
C02706 



002710 



015701 
052757 
001005 
104000 
000010 
001525 

015701 
052757 
001405 
104000 
000011 
001525 



005057 
005057 
005057 
000167 



104000 
000012 
001525 



001122 

000010 177752 



021122 

000010 177752 



177744 
177766 
001116 
000006 



It: 



2$: 



MMPARR: 



CTST5: 



MOV 


ffBIT02. CCR 


MOV 


•177777, BMSTLOC 


MOW 




MOV 


MTsnoc.Ri 


BIT 


«BIT03. S4HITMIS 


BNE 


1» 


ERROR 




.WORD 


10 


.WORD 


ERRMSG 


MOV 


8«TSTL0C*8192. .Rl 


BIT 


«6IT05, 90HITMIS 


BED 


2t 


ERROR 




.WORD 


11 






CLR 


84MSER 


CLR 


a«CPEREG 


CLR 


MSOFTER 


JMP 


TST5 


ERROR 




.WORD 


12 


.WORD 


ERRMSG 



SEQ 00?'^ 



URITE CACHE ANc MEMQRr UITH ZEROS 

set ccr bits<5:2> - o.lcrorce cache miss) 
urite test location uith pattern 2 
memory --l. cache still zero 
clear ccr bit 5 (clear rorce miss) 
and set parity aborts 
read test address (should be cache hit) 
if hit/miss register bit 5 not set 
Then 

all errors to trap to emt vector 
unique error number 

ADDRESS or ERROR MESSAGE 

t CACHE SYSTEM ERROR 
READ TEST LOCATION . 20000(8) SHOULD MISS 
IF HIT/MI3S REGISTER BIT 5 SET 
THEN 

ALL ERRORS TO TRAP TO EMT VECTOR 
UNIQUE ERROR NUMBER 
ADDRESS OF ERROR MESSAGE 

: CACHE SYSTEM ERROR 

CLEAR THE MEM SYS ERROR REG 

CLEAR THE CPU ERROR REGISTER 

CLEAR THE SOFT ERROR COUNT 

JUMP OVER DATA TABLES OR SUBROUTINES 

TO NEXT TEST 

PARITY ERROR DURING HIT/MISS REGISTER TES^ 
ALL ERRORS TO TRAP TO EMT VECTOR 
UNIQUE ERROR NUMBER 
ADDRESS OF ERROR MESSAGE 



TEST HIT MISS REGISTER BITS 



1 1***** 

l*TEST 

ImIT/MISS REGISTER TEST - THIS TEST UILL VERIFY THAT THE HIT/MISS 
iREGISTER CORRECTLY LOGS CACHE HITS AND MISSES. IT UILL ALSO VERIFt 
iTHAT EACH BIT OF THE REGISTER IS UNIQUE. THIS UILL BE DONE BY 
{FLOATING A ZERO THROUGH A FIELD OF ONES. THE ROTATING UiLL BE DONE 
iBY EXECUTING A TST S«HM (UHERE HM IS THE ADDRESS OF THE HIT/MISS 
{REGISTER) AT SUCCESSIVE POSITIONS IN A SET OF FOUR NOPS. THE READ 



I OF THE I/O PAGE ADDRESS 
iMISS TO BE RECORDED. 



OF THE MIT/MISS REGISTER SHOULD CAUSE A 



jBGNTST 

(INITIALIZE LOOP INDICATOR 

{INITIALIZE EXPECTED DATA 

:D0 UNTIL LOOP INDICATOR - SEVEN 

PUT BACKGROUND DATA INTO EXECUTION BUFFER 
PUT TST INSTRUCTION INTO TEST LOCATION 
{. JUMP TO EXECUTE BUFFER 

{. IF EXPECTED DATA NE RECEIVED DATA THEN 

{. ERROR IN CACHE SYSTEM 



E3 
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KOJllA.HAC 03 -APR 64 11:36 TS TEST HIT HISS REGISTER BITS 



1245 










t . 


FNDIF 




1246 












INCREHENT LOOP INDICATOR 


1247 












UPDATE 


EXPECTED DATA 


1246 










Undoo 






1249 










tEXiT 


TST 




1250 
















1251 










{BACKGROUND DATA: 


1252 










1 




NOP 


1253 














NOP 


1254 










. 




NOP 


1255 










1 




NOP 


1256 










1 




MOV a<mM.R5 


1257 










; 




RTS PC 


1256 










lENDTST 






1259 
















1260 


002710 








TST5: 






1261 


002710 


005267 


176070 






INC 


ITESTN 


1262 


002714 


012737 


001630 


000114 




MOV 


«RAMPAR.S«114 


1263 


002722 


005067 


176132 






CLR 


LOOPIN 


1264 


002726 


012703 


020000 






HOV 


«20000.R3 


1265 


002732 


012704 


003070 






MOV 


•EXPTBL,R4 


1266 


002736 


026727 


176116 


000007 


1«: 


CMP 


LOOPIN. 07 


1267 


002744 


001432 








BEQ 


ENDHRT 


1268 


002746 


012705 


000007 






MOV 


«7.R5 


1269 


002752 


012701 


005052 






MOV 


«BACDAT,R1 


1270 


002756 


012702 


001122 






MOV 


♦TSTL0C,R2 


1271 


002762 


012122 






2«: 


MOV 


(Rl)». (R2)» 


1272 


002764 


077502 








SOB 


RS. 2> 


1273 


002766 


005763 


001122 






TST 


TSTL0C(R3) 


1274 


002772 


005723 








TST 


(R3)» 


1275 


002774 


004767 


176122 






JSR 


PC. TSTLOC 


1276 


003000 


022405 








CMP 


(R4)». R5 


1277 


003002 


001003 








BNE 


3* 


1278 


003004 


005267 


176050 






INC 


LOOPIN 


1279 


003010 


000752 








BR 


IS 


1260 


003012 








3$: 




1261 


003012 


012737 


002714 


001120 




MOV 


♦TST5»4,8«S0FTRE 


1262 


003020 


004767 


176614 






JSR 


PC.APTSFT 


1263 


003024 


104000 








ERROR 


1264 


003026 


000013 








.WORD 


13 


1265 


003030 


001325 








.UORD 


ERRHSG 


1266 












1267 


003032 








ENOHRT: 






1266 


003032 


005037 


177744 






CLR 


89MSER 


1269 


003036 


005037 


177766 






CLR 


8«CPEREG 


1290 


003042 


005037 


001116 






CLR 


MSOFTER 


1291 


003046 


000167 


000034 






JMP 


TST6 


1292 












1293 
















1294 


003052 


000240 






BACDAT : 


.WORD 


NOP 


1295 


003054 


000240 








.WORD 


NOP 


1296 


003056 


000240 








.WORD 


NOP 


1297 


003060 


000240 








.WORD 


NOP 


1296 


00306? 


013705 


177752 






MOV 


S«HITMIS.R5 


1299 


003066 


000207 








RTS 


PC 


1300 















SCO 0050 



; INCREMENT TEST NUMBER 

; SET UP VECTOR FOR UNEXPECTED PARITY ERROR 

: INITIALIZE LOOP INDICATOR 

tLOAO R3 WITH 1ST ADOR IN 2ND BANK OF HEM. 

:GET ADDRESS OF EXPECTED DATA TABLE 

I DO UNTIL LOOP INDICATOR EQUALS 7 

J THEN EXIT 

iLOAD R2 WITH 7 

(PUT BACKGROUND DATA INTO 

{EXECUTION BUFFER 

(LOOP FOR SEVEN WORDS 

iSETUP MISS ON FETCH OF INSTRUCTION 

sINC R3 BY 2 

iGO EXECUTE TEST CODE 

8 IF EXPECTED DATA NOT EQUAL TO 

(RECEIVED DATA THEN 

{INCREMENT LOOP COUNTER 



{MOVE RETRt ADDRESS TO SOFT RETURN 
{GO TO SOFT ERROR SUBROUTINE 
{ALL ERRORS TO TRAP TO EMT VECTOR 
{UNIQUE ERROR NUMBER 
(ADDRESS OF ERROR MESSAGE 

(CACHE SYSTEM ERROR 

(CLEAR THE MEM SYS ERROR REG 
(CLEAR THE CPU ERROR REGISTER 
(CLEAR THE SOFT ERROR COUNT 
(JUMP OVER DATA TABLES OR SUBROUTINES 
(TO NEXT TEST 



(SAVE CONTENTS OF HIT/MISS REGISTER 



GLOBAL AREAS HACUl 
KDJllA.HAC OS APR 84 

1301 003070 000077 

1302 003072 000037 

1303 003074 000057 

1304 003076 000067 

1305 003100 000073 

1306 003102 000075 

1307 003104 000076 
1308 

1309 
1310 
1311 

1312 003106 

1313 

1314 

1315 

1316 

1317 

1318 

1319 

1320 

1321 

1322 

1323 

1324 

1325 

1326 

1327 

1328 

1329 

1330 

1331 

1332 

1333 

1SS4 

1355 

1336 

1337 

1338 

1539 

1340 

1341 

1342 

1343 

1344 

1345 

1346 

1347 

1348 

1349 

1350 

1351 

1352 

1355 

1354 

1355 

1356 



f 6 

APR^|4 10:^|^^PA5^ 3J^^ ^^^^^^^^ ^^^^ SEO 0051 



EXPTBL: .WORD 77 

.WORD 37 

.WORD 57 

.WORD 67 

.WORD 73 

.UORO 75 

.WORD 76 



CTST6: 

I i TEST 6 TEST BYTE ALLOCATION OF CACHE 

;BYTE ALLOCATION TEST- THIS TEST WILL VERIFY THAT THE CACHE SYSTEM CORRECTLt 

;hanoles byte accesses. the test will first check that a write access which 
:is a miss does not update the cache. this will be done by first assurring 
ta miss at a test location. then a write byte access will be done. finally 
:the location will be read. the write byte should not have allocated the 
s address. next the test will verify that if a write byte access is a hit 
j that the cache location is updated. the test will first write a test location 
jwlth a pattern to allocate the address. then a second pattern will be written 
j to the high byte of the test location. the test location will then be read, 
slf the high byte of the test location is equal to the second pattern then the 
jlocation was updated. the second test will be repeated to test low byte 
{accesses. 

Ibgntst 

j save vector 114 

:let vector 114 point to byte parity routine 
;set parity abort bit in cache control register 
;reao test location * ak 
; write low byte to test address 
sreao low byte of test address 
:if hit /hiss register bit 3 set then 
error in cache system 

;ENDIF 

iWRITE PATTERN 1 TO TEST LOCATION 
{WRITE BYTE PATTERN 2 TO TEST LOCATIONS 
I IF BITl NOTSETIN HIT/MISS REGISTER THEN 
8. ERROR IN CACHE SYSTEM 

(ELSE 

;. READ TEST LOCATION 

i . IF RECEIVED DATA NOT EQUAL TO EXPECTED DATA THEN 

I . . ERROR IN CACHE SYSTEM 

lENOIF 

{WRITE PATTERN 1 TO TEST LOCATION 
{WRITE BYTE PATTERN 2 TO TEST LOCATION LOW BYTE 
J IF BITl NOTSETIN HIT/MISS REGISTER THEN 
ERROR IN CACHE SYSTEM 

{ELSE 

{. READ TEST LOCATION 

; . IF RECIEVED DATA NOT EQUAL TO EXPECTED DATA THEN 

;, ERROR IN CACHE SYSTEM 

sENOIF 



GLOBAL AREAS 
KOJllA.MAC 



MACUl 50A(1052) 04 APR 64 10:58 PAGE 3 
05 APR 84 11:56 — 



T6 



G3 



TFST BYTE Allocation of cache 



1 










J CLEAR 


CACHE CONTROL REGISTER 


1558 










;RESTORE VECTOR 


114 


1559 










;EXIT 


TST 




1360 


























:BYTE PARITr ROUTINE: SAVE MSER 
















RETURN 


1565 










jENOTST 






1564 
















1565 


005106 








TST6: 






1566 


005106 


005267 


175672 






INC 


tTESTN 


1567 


005112 


012757 


005574 


000114 




MOV 


«BYPARR. 8^114 


1S66 


005120 


012767 


000200 


1 74620 




MOV 


#BIT07. CCR 


1569 


005126 


005767 


015770 






TST 


TSTL0C»8192. 


1570 
















1571 


005152 


105067 


175764 






CLRB 


TSTLOC 


1572 


005156 


105767 


175760 






TSTB 


TSTLOC 


1573 


005142 


052737 


000010 


177752 




BIT 


•BIT03. S4HITMIS 


1374 


003150 


001410 








BEQ 


li 


1575 


003152 


012737 


003112 


001120 




MOV 


«TST6»4,8«S0rTRE 


1376 


003160 


004767 


176454 






JSR 


PC.APTSFT 


1377 


003164 


104000 








ERROR 




1376 


003166 


000014 








.WORD 


14 


1379 


003170 


001325 








.WORD 


ERRMSG 


1360 
















1381 


003172 


005067 


175724 




It: 


CLR 


TSTLOC 


1382 


003176 


152737 


000377 


001123 




BISB 


♦377. S«TSTL0C»1 


1383 


003294 


032767 


000010 


174540 




BIT 


«BIT03. HITMIS 


1384 


003212 


001011 








BNE 


21 


1365 


003214 


012737 


003112 


001120 




MOV 


♦TST6 *4 . S^SOT TRE 


1386 


003222 


004767 


176412 






JSR 


PC.APTSFT 


1367 


003226 


104000 








ERROR 


1388 


003230 


000015 








.UORO 


15 


1389 


003232 


001325 








.UORO 


ERRMSG 


1390 
















1391 


003234 


000414 








BR 


3t 


1392 


003236 


022737 


177400 


001122 


2$: 


CMP 


♦177400. MTSTLOC 


1393 


003244 


001410 








BEQ 


3( 


1394 


003246 


012737 


003112 


001120 




MOV 


«TST6*4.8«S0FTRE 


1395 


003254 


004767 


176360 






JSR 


PC.APTSFT 


1396 


003260 


104000 








ERROR 


1397 


003262 


000016 








.UORO 


16 


1398 
1399 


003264 


001325 








.UORO 


ERRMSG 


1400 


003266 


005067 


175630 




3<: 


CLR 


TSTLOC 


1401 


003272 


152737 


000377 


001122 

WW A 




BISB 


♦377, O^TSTLOC 


1402 


003300 


032767 


000010 

*^WWW AW 


174444 




BIT 


♦6IT03. HITMIS 


1403 


003306 


001011 








BNE 


4t 


1404 
















1405 


003310 


01273? 


003112 


001120 




MOV 


♦TST6»4.MS0FTRE 


1406 


003316 


004767 


176316 






JSR 


PC.APTSFT 


1407 


003322 


104000 








ERROR 


1408 


003324 


000017 








.UORO 


17 


1409 


003326 


001325 








.UORO 


ERRMSG 


1410 
















1411 


003330 


000407 








BR 


51 


1412 


003332 


022737 


000377 


001122 


41: 


CMP 


♦377. a^TSTLOC 



SEQ 0032 



J INCREMENT TEST NUMBER 

jLET VECTOR 114 POINT TO ABORT ROUTINE 

,SET PARITY ABORT BIT IN CCR 

;REA0 TEST LOCATION ♦ 4K TO CAUSE MISS 

I ON NEXT ACCESS OF TSTLOC 

jURITE LOW BYTE OF TEST LOCATION 

jREAO LOU BYTE OF TEST LOCATION 

;IF BIT5 OF HIT/MISS REGISTER NOT SET 

{THEN BRANCH 

iMOVE RETRY ADDRESS TO SOFT RETURN 
iGO TO SOFT ERROR SUBROUTINE 
;ALL ERRORS TO TRAP TO EMT VECTOR 
t UNIQUE ERROR NUMBER 
: ADDRESS OF ERROR MESSAGE 

; CACHE SYSTEM ERROR 
tURITE PATTERN 1 TO TEST LOCATION 
iURITE PATTERN 2 TO HIGH BYTE 
:IF BITS NOTSETIN HIT/MISS REGISTER 
8 THEN 

:MOVE RETRY ADDRESS TO SOFT RETURN 

I GO TO SOFT ERROR SUBROUTINE 

J ALL ERRORS TO TRAP TO EMT VECTOR 

-.UNIQUE ERROR NUMBER 

s ADDRESS OF ERROR MESSAGE 

I CACHE SYSTEM ERROR 

sELSE 

ilF TEST LOCATION NOT EQUAL TO 
{PATTERN 2 THEN 

sMOVE RETRY ADDRESS TO SOFT RETURN 
I GO TO SOFT ERROR SUBROUTINE 
(ALL ERRORS TO TRAP TO EMT VECTOR 
(UNIQUE ERROR NUMBER 
{ADDRESS OF ERROR MESSAGE 

t CACHE SYSTEM ERROR 
tURITE PATTERN 1 TO TEST LOCATION 
iURITE PATTERN 2 TO LOU BYTE 
I IF BIT03 SET IN HIT/MISS REGISTER 
{THEN BRANCH t UE GOT A HIT. 
lELSE 

iMOVE RETRY ADDRESS TO SOFT RETURN 

iGO TO SOFT ERROR SUBROUTINE 

I ALL ERRORS TO TRAP TO EMT VECTOR 

(UNIQUE ERROR NUMBER 

(ADDRESS OF ERROR MESSAGE 

(CACHE SYSTEM ERROR 

(IF TEST LOCATION NOT EQUAL TO 



GLOBAL AREAS MACtll 50A(105?) 
KDJllA.MAC 05-APR 84 11:56 

1413 005540 001405 

1414 005342 104000 

1415 005544 000020 

1416 005546 001525 
1417 

1418 005550 005067 174572 

1419 005554 005057 177744 

1420 005560 005057 177766 

1421 005564 005057 001116 

1422 005570 000167 000006 
1425 

1424 

1425 005574 

1426 005574 104000 

1427 005576 000021 

1428 005400 001525 
1429 

1450 
1451 

1452 005402 

1455 

1454 

1455 

1456 

1437 

1438 

1439 

1440 

1441 

1442 

1445 

1444 

1445 

1446 

1447 

1448 

1449 

1450 

1451 

1452 

1453 

1454 

1455 

1456 

1457 

1458 

1459 

1460 

1461 

1462 

1463 

1464 

1465 

1466 

1467 

1468 



H3 



APR 64 

T6 



10:38 PAGE 33 

TEST BTTE ALLOCATION QF CACHE 



5»! 



BYPARR: 



BEQ 
ERROR 
.WORD 
.WORD 

CLR 
CLR 
CLR 
CLR 
JMP 



ERROR 
.WORD 
.WORD 



5» 

20 

ERRMSG 
OCR 

8«nSER 
a«CPEREG 
a«S0FTER 
TST7 



21 

ERRMSG 



SEQ 0033 



{PATTERN 2 THEN 

;ALL ERRORS TO TRAP TO EMT VECTOR 
(UNIQUE ERROR NUMBER 
(ADDRESS OF ERROR MESSAGE 

(CACHE SYSTEM ERROR 
(ClEAR CCR before EXIT 
(CLEAR THE MEM SYS ERROR REG 
(CLEAR THE CPU ERROR REGISTER 
(CLEAR THE SOFT ERROR COUNT 
(JUMP OVER DATA TABLES OR SUBROUTINES 
(TO NEXT TEST 

(PARITY ERROR DURING BYTE ALLOCATION TEST 
(ALL ERRORS TO TRAP TO EMT VECTOR 
(UNIQUE ERROR NUMBER 
(ADDRESS OF ERROR MESSAGE 



CTST7: 

*************************************************************** 

(*TEST 7 TEST CACHE BYPASS CMMU) 



POR BIT15 (BYPASS) TEST - THIS TEST WILL VERIFY THAT WHEN BIT<15> IS SET 
IN A PDR AND AN ACCESS IS MADE TO A LOCATION MAPPED BY THE SELECTED POR 
THAT WOULD NORMALLY CAUSE A CACHE ACCESS. THE CACHE IS BYPASSED (I.E. 'HE 
CACHE LOCATION IS INVALIDATED AND A MAIN MEMORY IS READ. THIS WILL BE DONE 
BY FIRST WRITING A TEST LOCATION WITH A KNOWN PATTERN TO ALLOCATE THE ADDRESS. 
THEN THE LOCATION WILL BE WRITTEN AGAIN WITH THE MMU ENABLED AND BIT <15> SET 
IN THE CONTROLING PDR WITH A NEW PATTERN. THE LOCATION WILL THEN BE READ 
AND A MISS SHOULD BE LOGGED IN THE HIT /MISS REGISTER. THIS READ WILL ALSO 
BRING VALID DATA INTO CACHE FROM MEMORY. THE MMU WILL AGAIN BE ENABLED 
WITH BIT <15> SET AND A READ CYCLE DONE. THIS SHOULD INVALIDATE THE CACHE. 
NEXT THE MMU WILL BE DISABLED AND THE LOCATION READ FOR A THIRD TIME. THIS 
WILL BE DONE WITH BIT<15> STILL SET. A MISS SHOULD ALSO BE LOGGED. LASTLY 
BIT<15> WILL BE CLEARED AND THE MMU ENABLED AND THE LOCATION AGAIN 9EAD. 
THIS TIME A CACHE HIT SHOULD BE LOGGED. 



BGNTST 

SETUP MMU REGISTERS 
WRITE TEST LOCATION WITH PATTERN 1 
SET BIT«15> IN PDR FOR TEST LOCATION 
ENABLE MMU 

WRITE TEST LOCATION WITH PATTERN 2 
DISABLE MMU AND CLEAR BIT<15> IN PDR 
READ TEST LOCATION 

IF MIT/MISS REGISTER BIT<1> SET THEN 
ERROR IN CACHE SYSTEM 

ENDIF 

SET BIT<15> IN PDR FOR TEST LOCATION 
ENABLE MMU 

READ TEST LOCATION (SHOULD INVALIDATE CACHE) 

DISABLE MMU 

READ TEST LOCATION 

IF HIT/MISS REGISTER 8IT<1> SET THEN 



15 



GLOBAL AREAS HACUl 5CA(1052) 04 APR 84 10:38 PAGE 34 

KOJllA.MAC 05-APR 04 11:36 17 TEST CACHE BYPASS (MMU) 



1469 

14 70 
1471 
1472 
14 75 
1474 
1475 
1476 
1477 
14 78 
1479 



i . ERROR IN CACHE SYSTEM 

;ENOIF 

J CLEAR 9IT<15> IN PDR 

;TURN ON MMO 

iREAD TEST LOCATION 

J IF HIT/HISS REGISTER BIT<1> NOT 

J . ERROR IN CACHE SYSTEM 

:ENDIF 

8 TURN OFF MMU 
jENDTST 



1480 










TST7: 






1481 


003402 












1482 


003402 


005267 


175376 






INC 


$TESTN 


1485 


003406 


012737 


001630 


000114 




MOV 


•RAMPAR.8«114 


1484 


003414 


004767 


175772 






JSR 


PC. INITMM 


1485 


003420 


005037 


001122 






CLR 


S^TSTLOC 


1486 


003424 


052767 


100000 


166646 




BIS 


«BIT15. KIPDRO 


1487 


003432 


052737 


000001 


177572 




BIS 


«BIT00.8»SR0 


1488 


003440 


012737 


177777 


001122 




MOV 


♦177777. 8#TSTL0C 


1489 


003446 


005067 


174120 






CLR 


SRO 


1490 


003452 


042767 


100000 


166620 




BIC 


♦BIT15, KIPDRO 


1491 


003460 


013701 


001122 






MOV 


8#TSTL0C.R1 


1492 


003464 


032767 


000010 


174260 




BIT 


0BIT03. HITMIS 


1493 


003472 


001410 








BEQ 


2« 


1494 


003474 


012737 


003406 


001120 




MOV 


#TST7*4,8«S0FTRE 


1495 


003502 


004767 


176132 






JSR 


PC.APTSFT 


1496 


003506 


104000 








ERROR 




1497 


003510 


000022 








.UORD 


22 


1498 


003512 


001325 








.UORD 


ERRMSG 


1499 
















1500 


003514 


052767 


100000 


166556 


2«: 


BIS 


♦BIT 15, KIPORO 


1501 


003522 


052737 


000001 


177572 




BIS 


«BIT00.8*SRO 


1502 


003530 


005767 


175366 






TST 


TSTLOC 


1503 


003534 


042767 


100000 


166536 




BIC 


•BIT 15. KIPORO 


1504 


003542 


005067 


174024 






CLR 


SRO 


1505 


003546 


005737 


001122 






TST 


»»TSTLOC 


1506 


003552 


032767 


000010 


174172 




BIT 


♦BIT03. HITMIS 


1507 


003560 


001410 








BEQ 


31 


1508 


003562 


012737 


003406 


001120 




MOV 


«TST7*4.S4S0FTRE 


1509 


003570 


004767 


176044 






JSR 


PC.APTSFT 


1510 


003574 


104000 








ERROR 


1511 


003576 


000023 








.WORD 


23 


1512 


003600 


001325 








.MRO 


ERRMSG 


1513 












1514 


003602 


052737 


000001 


177572 


3t: 


BIS 


•BIT00.80SR0 


1515 


003610 


005737 


001122 






TST 


8«TSTL0C 



1516 
1517 
1518 
1519 
1520 
1521 
1522 
1523 
1524 



003614 
003622 
003624 
003630 
003636 
003642 
003644 



032767 
001012 
005067 
012737 
004767 
104000 
000024 



000010 174130 
173742 

003406 001120 
175776 



BIT 

BNE 

CLR 

MOV 

JSR 

ERROR 

.WORD 



♦BIT03. HITMIS 
4$ 

SRO 

«TST7»4.a#S0FTRE 
PC.APTSFT 

24 



: INCREMENT TEST NUMBER 

;SET UP FOR UNEXPECTED PARITY ERROR 

I SETUP MEMORY MANAGFMEMT REGISTERS 

! WRITE TEST LOCATION WITH PATTERN 1 

;SET BIT15 IN PDR FOR TEST LOCATION 

J TURN ON MEMORY MP "iAGEMENT 

J WRITE TEST LOCATION WITH PATTERN 2 

:TURN OFF MEMORY MANAGEMENT 

jCLEAR BIT15 IN PDR FOR TEST LOCATION 

jREAD TEST LOCATION 

.•IF HIT/MISS REGISTER BIT 3 SET 

jTHEN 

iMOVE RETRY ADDRESS TO SOFT RETURN 

{GO TO SOFT ERROR SUBROUTINE 

J ALL ERRORS TO TRAP TO EMT VECTOR 

s UNIQUE ERROR NUMBER 

{ADDRESS OF ERROR MESSAGE 

I CACHE SYSTEM ERROR 
{SET BIT15 IN PDR FQR TEST LOCATION 
{TURN ON MEMORY MANAGEMENT 
{READ TEST LOCATION. BYPASS CACHE 
(TURN OFF CACHE BYPASS ON KERNEL PAGE 0. 
{TURN OFF MMU 

{READ TEST LOCATION -SHOULD BE CACHE MISS 

{IF HIT/MISS REGISTER BIT 3 SET 

{Th€N 

{MOVE RETRY ADDRESS TO SOFT RETURN 
{GO TO SOFT ERROR SUBROUTINE 
{ALL ERRORS TO TRAP TO EMT VECTOR 
{UNIQUE ERROR NUMBER 
{ADDRESS OF ERROR MESSAGE 

{CACHE SYSTEM ERROR 
{TURN ON MORy MANAGEMENT 
{READ TEST LOCATION ONE MORE TIME. 
{PREVIOUS READ SHOULD HAVE Al LOCATED 
{CACHE SO WE'RE EXPECTING A CACHE HIT 
{IF HIT/MISS REGISTER BIT 3 NO; SET 
{THEN 

{TURN OFF MMU BEFORE ERROR ROUTINE. 
{MOVE RETRY ADDRESS TO SOFT RETURN 
{GO TO SOFT ERROR SUBROUTINE 
{ALL ERRORS TO TRAP TO EMT VECTOR 
{UNIQUE ERROR NUMBER 



GLOBAL AREAS 
KOJllA.MAC 



HAC>11 30A(i,052) 
03 -APR 84 11:36 



04 APR -64 

T7 



1525 
1526 
1527 
1528 
1529 
1530 
1531 
1532 
1533 
1554 
1535 
1536 
1537 
1536 
1539 
1540 
1541 
1542 
1543 
1544 
1545 
1546 
1547 
1546 
1549 
1550 
1551 
1552 
1553 
1554 
1555 
1556 
1557 
1558 
1559 
1560 
1561 
1562 
1563 
1564 
1565 
1566 
1567 
1568 
1569 
1570 
1571 
1572 
1575 
1574 
1575 
1576 
1577 
1578 
1579 
1580 



005646 001325 

005650 042767 000001 

005656 005057 177744 

003662 005057 177766 

005666 005037 001116 

005672 000167 000000 



005676 



005676 
005676 
005702 
003706 
003712 
005716 
003722 
005750 
005752 
005754 
005740 
005744 
005750 
005756 



005267 
004767 
005067 
012701 
012702 
052757 
005721 
077202 
012701 
012702 
012705 
012767 
005721 



175102 
175504 
166442 
140000 
010000 
000001 



140000 
010000 
010000 
000400 



177572 



175770 



J5 

10:56 PAGE 35 

TEST CACHE BYPASS CMMU) 

. UORO ERRMSG 



173714 4t; 



BIG 
CLR 
CLR 
CLR 



OBITOO. SRO 

S«MSER 

8«CPEREG 

8«S0FTER 

TSTIO 



J ADDRESS OF ERROR MESSAGE 

» CACHE STSTEM ERROR 

J TURN OFF MMU 

J CLEAR THE MEM SYS ERROR REG 

! CLEAR THE CPU ERROR REGISTER 

J CLEAR THE SOFT ERROR COUNT 

sJUMP OVER DATA TABLES OR SUBROUTINES 

5 TO NEXT TEST 



CTSTIO: 
liTEST 10 



TEST CACHE FLUSH 



t i' 



I FLUSH CACHE TEST - THIS TEST WILL VERIFY THAT WHEN CCR BIT<8> IS 
sSET, THE ENTIRE CACHE IS INVALIDATED. FIRST 8K BYTES OF ADDRESSES 
J WILL BE READ TO ALLOCATE CACHE. THEN THE CACHE WILL BE FLUSHED. 
THE SAME SET OF ADDRESS WILL THEN BE READ AND THE HIT /MISS REGISTER 
CHECKED AFTER EACH READ FOR A MISS TO BE LOGGED. 

BGNTST 

J GET FIRST ADDRESS OF 6KB BUFFER 
J INITIALIZE LOOP COUNTER TO 4KW0RD COUNT 
DO UNTIL LOOP COUNTER - 0 
READ SADDRESS» 

ENODO 

GET FIRST ADDRESS OF 8KB BUFFER 
INITIALIZE LOOP COUNTER TO 4KW0RD COUNT 
INITIALIZE MISS COUNT 
FLUSH CACHE 

J DO UNTIL LOOP COUNTER - 0 

READ BADORESS» 
!! IF MIT/MISS REGISTER BIT<1> SET THEN 

; . DECREMENT MISS COUNT 

t . ENOIF 
; ENODO 

;IF MISS COUNT NOT EQUAL TO 4096. THEN 

i . ERROR IN CACHE SYSTEM 

: ENOIF 

sENOTST 

i 

J J *♦♦♦♦♦♦♦•♦♦•*♦*♦*•**♦•*•♦•****♦•••♦**•••**•***•*•*♦♦•♦•**•••*♦* 

TSTIO: 



INC ITESTN 

JSR PC, INITMM 

CLR KIPAR6 

MOV »140000.R1 

MOV «4096 . . R2 

BIS »BITOO.a«SRO 

l»: TST (Rl)» 

SOB R2. II 

MOV «140000.R1 

MOV «4096. . R2 

MOV «4096.. R3 

MOV ♦400. CCR 

2»: TST (Rl). 



INCREMENT TEST NUMBER 

INITIALIZE MMU 

LET PAR6 POINT TO LOW 4K 

GET ADDRESS OF 8K BYTE BUFFER 

INIT LOOP COUNTER TO 4K WORD COUNT 

ENABLE MMU 

READ ADDRESS TO ALLOCATE CACHE 
00 UNTIL ALL LOCATIONS ALLOCATED 
GET ADDRESS OF 8K BYTE BUTrER 
INIT LOOP COUNTER TO 4K WORD COUNT 
PRE-LOAD MISS COUNT WITH 4096. 
FLUSH CACHE 
READ ADDRESS 



K5 
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TEST CACHE FLUSH 



1581 
1582 
1583 
1584 
1585 
1586 
1587 
1588 
1589 
1590 
1591 
1592 
1593 
1594 
1595 
1596 
1597 
1598 
1599 
1600 
1601 
1602 
1603 
1604 
1605 
1606 
1607 
1608 
1609 
1610 
1611 
1612 
1615 
1614 
1615 
1616 
1617 
1618 
1619 
1620 
1621 
1622 
1625 
1624 
1625 
1626 
1627 
1628 
1629 
1650 
1651 
1652 
1635 
1654 
1655 
1636 



005760 052757 000010 177752 



003766 001401 



003770 
003772 



003774 
004000 
004004 



004006 
004014 
004020 
004022 
004024 

004026 
004052 
004056 
004042 
004046 



004052 



005303 
077207 



005067 
022703 
001410 



012737 
004767 
104000 
000025 
001325 

005057 
005057 
005057 
005037 
000167 



173572 
010000 



005702 001120 
175620 



177572 
177744 
177766 
001116 
000000 



5): 



5»i 



BIT 



BEQ 

DEC 
SOB 



CLR 
CMP 
BEQ 



MOV 

JSR 

ERROR 

.WORD 

.WORD 

CLR 
CLR 
CLR 
CLR 
JMP 



•BIT05.8*HITMIS 



5S 

R5 
R2. 



2$ 



SRO 

«4096.. R5 
5$ 



•TST10»4.S»SOF-TRE 
PC.APTSFT 

25 

ERRMSG 

a«SRO 

S«MSER 

0«CPEREG 

a«SOFTER 

TSTll 



SEQ O056 

jSHOULON'T GET HITS AT CRl) 

I IF BIT05 IN HIT/MISS REG INDICATES A MISS 

jTMEN 

:BRANCH TO 5$ DON'T DECREMENT THE MISS CO«JNT 
(ELSE 

{DECREMENT MISS COUNT IF UE GET A HIT 
I LOOP UNTIL ENTIRE CACHE CHECKED 
(FALLING THROUGH SOB INDICATES THAT ALL 
{CACHE LOCATIONS HAVE BEEN CHECKED. 
•.TURN OFF MMU 

sIF MISS COUNT NOT EQUAL TO 4096. 
;THEN IT INDICATES THAT NOT ALL CACHE 
(LOCATIONS MERE FLUSHED 



MOVE RETRY ADDRESS TO SOFT RETURN 
GO TO SOFT ERROR SUBROUTINE 
ALL ERRORS TO TRAP TO EMT VECTOR 
UNIQUE ERROR NUMBER 
ADDRESS OF ERROR MESSAGE 

i CACHE SYSTEM ERROR 

TURN OFF MMU 

CLEAR THE MEM SYS ERROR REG 

CLEAR THE CPU ERROR REGISTER 

CLEAR THE SOFT ERROR COUNT 

JUMP OVER DATA TABLES OR SUBROUTINES 

TO NEXT TEST 



CTSTll: 
(♦TEST 11 



TEST UNCONDITIONAL CACHE BYPASS 



(UNCONDITIONAL BYPASS TEST - THIS TEST WILL VERIFY THAT WHEN CCR 
{BIT<9> IS SET. A MEMORY REFERENCE IS FORCED TO MAIN MEMORY, THIS 

WILL ALSO VERIFY THAT READ AND WRITE HIT INVALIDATE THE CACHE 

LOCATIONS WHEN BYPASS IS SET. 

(BGNTST 

(READ TEST LOCATIONS TO SETUP POSSIBILITY OF HIT 
(SET CCR BIT<9> 
(READ FIRST TEST LOCATION 
IF HIT/MISS REGISTER BIT<1> NOT SET THEN 
ERROR IN CACHE SYSTEM 

ENDIF 

URITE SECOND TEST LOCATION 
(IF HIT/MISS REGISTER BIT<1> NOT SET THEN 
; . ERROR IN CACHE SYSTEM 

(ENDIF 

(CLEAR CCR BIT<9> 
READ FIRST LOCATION 

IF HIT/MISS REGISTER BIT<1> SET THEN 
ERROR IN CACHE SYSTEM 

ENDIF 

READ SECOND LOCATION 
IF HIT/MISS REGISTER BIT<1> SET THEN 
ERROR IN CACHE SYSTEM 



L3 
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Til 



TEST UNCONDITIONAL CACHE BYPASS 



S£Q 0057 



1637 










:ENDir 








1638 










;ENDTST 








1639 


















1640 










TSTll: 








1641 


004052 














1642 


004052 


005267 


174726 






INC 


$TESTN 


J INCREMENT TEST NUMBER 


1643 


004056 


005737 


001122 






TST 


S^TSTLOC 


1 ALLOCATE riRST TEST LOCATION 


1644 


004062 


005737 


001124 






TST 


#^m.TAVl A A A 

8*TSTL0C*2 


{ALLOCATE SECOND TEST LOCATION 


1645 


004066 


052767 


001000 


173652 




BIS 


▼ V A A AAA 

#BIT09, CCR 


J SET CCR BIT 9 (CACHE BYPASS) 


1646 


004074 


005737 


001122 




1) : 


TST 


80TSTLOC 


{READ riRST TEST LOCATION 


164 7 


004100 


032767 


000010 


173644 




BIT 


MIT03, HITMIS 


J If HIT/MISS REG. BIT 3 NOT SET 


1648 


004106 


001010 








BNE 


2$ 


J THEN 


1649 


004110 


012737 


004056 


001120 




MOV 


♦TST11»4 ,8#S0FTRE 


J MOVE RETRY ADDRESS TO SOFT RETURN 


1650 


0O4116 


004767 


175516 






JSR 


AA Aff%VA^V 

PCiAPTSr T 


;G0 TO SOFT ERROR SUBROUTINE 


1651 


004122 


« A A AAA 

104000 








ERROR 




|ALL ERRORS TO TRAP TO EMT VECTOR 


1652 


004124 


000026 








.WORD 


26 


(UNIQUE ERROR NUMBER 


1653 


004126 


001325 








.WORD 


ERRMSG 


AAA^\r A^ A^ ^AAAA A «^ 

{ADDRESS OF ERROR MESSAGE 


1654 
















{CACHE SYSTEM ERROR 


1655 


004130 


005037 


001124 




2*: 


CLR 


aaTAYi aA a 

8#TSTL0C»2 


■ lA ▼ A^ A Aft afN ■ A A A V V . 

{WRITE SECOND LOCATION 


1656 


004134 


A 4 V ^A V 

013703 


4 A 

177752 




4 AA A 

100$ : 


MOV 


8«HITMIS,R3 


AAtl^ A^VftiV^ftiYA Af~ 1 V ft.* ▼ ^ A 

{SAVE CON.ENTS OF HIT MISS 


1657 


004140 


012704 


AAA 4 V A 

004134 






MOV 


m. a A A A A A 

4100* ,R4 


{MOV ADDR OF nOV INST TO R4 


1658 


004144 


012702 


001124 






MOV 


mVA'Fi AA A A A 

♦TSTL0C*2,R2 




1659 


004150 


042704 


177701 






n ▼ A 

BIC 


♦177701, R4 


{STRIP OFF Uf<MEEDED BITS 


1660 


004154 


042702 


177701 






6IC 


m. » ^^^Aa f^A 

♦177701 ,R2 




1661 


004160 


AAA AA M 

020204 








CMP 


R2,R4 


{ARE THEY EQUAL? 


1662 


004162 


001004 








BNE 


1011 


{BRANCH IF NOT 


1663 


004164 


032703 


000010 






BIT 


♦BIT03, R3 


{IF HIT/MISS REG. BIT 3 NOT SET 


1664 


004170 


001014 








BNE 


3* 


{THEN 


1665 


004172 


000403 








BR 


102* 


{IT WAS A MISS. GO TO ERROR 


1666 


004174 


032703 


A AAA A A 

000004 




101 1: 


BIT 


♦BIT02,R3 


{TEST BIT02 


Iod7 


004200 


A A « A « A 

001010 








BNE 


3t 


A ft a^^k 1 Y Y V Y ■ 1 A A A ft i V V 

{BRANCH IIF IT WAS A HIT 


1668 


004202 








102 1: 








1669 


AAA AAA 

004202 


012737 


004056 


001120 




MOV 


♦TSTll ^4 .MSOFTRE 


{MOVE RETRY ADDRESS TO SOFT RETURN 


1670 


A A A A • A 

004210 


004767 


175424 






JSR 


#^A V A^ V 

PC.APTSr T 


{GO TO SOFT ERROR SUBROUTINE 


1671 


004214 


104000 








ERROR 




{ALL ERRORS TO TRAP TO EMT VECTOR 


1672 


004216 


000027 








.UORO 


27 


{UNIQUE ERROR NUMBER 


1673 


AAA AAA 

004220 


001325 








.WORD 


^ A A A 

ERRMSG 


{ADDRESS OF ERROR MESSAGE 


1674 
















{CACHE SYSTEM ERROR 


1675 


A A Jt AAA 

004222 


005737 


001122 




it: 


TST 


#^aVA 0^^^ 

MTSTLOC 


{READ FIRST TEST LOCATION 


1676 


AAA AA^ 

004226 


032767 


000010 


173516 




BIT 


♦6IT03, HITMIS 


{IF HIT/MISS REG. BIT 3 SET 


1677 


A A il A V A 

004234 


001410 








BEQ 


4$ 


{ THEN 


1678 


AAA A 

004236 


012737 


004056 


001120 




MOV 


♦TST 1 1 ^4 , MSOF TRE 


{MOVE RETRY ADDRESS TO SOFT RETURN 


1679 


004244 


004767 


175370 






JSR 


PC.APTSFT 


{GO TO SOFT ERROR SUBROUTINE 


1660 


AAA AC A 

004250 


104000 








ERROR 




{ALL ERRORS TO TRAP TO EMT VECTOR 


4^04 


AAA AC A 

004252 


000030 








.WORD 


30 


{UNIQUE ERROR NUMBER 


4 £.0*% 

loo2 


004254 


001325 








.UORD 


ERRMSG 


A P^ff^V^ A A A Jft^ ARAAA ft^A A A A A A 

{ADDRESS OF ERROR MESSAGE 


















A A Am ^A A u ^ V ^ ftd ^ A 

{CACHE SYSTEM ERROR 


4 ^ Oil 


004256 


005037 


001124 




4$ : 


CLR 


V A Ya ^^^^ ^% 

a^TSTL0C»2 


I Y ^ A A A A #%ft Atf^ ^^^^ A 9 V y^ft ■ 

{WRITE SECOND LOCATION 








1 f 5*o*» 






nuv 


tii I nib .H3 


( 3HVC LUNiCNIS Ur Mil nXba nCu 


1686 


004266 


012704 


004262 






MOV 


♦200*.R4 




1687 


004272 


012702 


001124 






MOV 


♦TSTL0C»2,H2 




1688 


004276 


042704 


177701 






BIC 


♦177701. R4 




1689 


004302 


042702 


177701 






BIC 


♦177701. R2 




1690 


004306 


020204 








CMP 


R2.R4 


IaRE THEY EQIIAL 


1691 


004310 


001004 








BNE 


201* 


{BRANCH IF NOT 


1692 


004312 


032703 


000010 






BIT 


♦BIT03. R3 


{IF HIT/MISS REG. BIT 5 NOT SET 



M3 
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TEST UNCONDITIONAL CACHE BYPASS 



SEQ 0038 



1693 
1694 
1695 
1696 
1697 
1698 
1699 
1700 
1701 
1702 
1703 
1704 
1705 
1706 
1707 
1708 
1709 
1710 
1711 
1712 
1713 
1714 
1715 
1716 
1717 
1718 
1719 
1720 
1721 
1722 
1723 
1724 
1725 
1726 
1727 
1728 
1729 
1730 
1731 
1732 
1733 
1734 
1735 
1736 
1737 
1738 
1739 
1740 
1741 
1742 
1743 
1744 
1745 
1746 
1747 
1748 



004316 
004320 
004322 
004326 
004330 
004330 
004336 
004342 
004344 
004346 

004350 
004354 
004360 
004364 
004370 



004374 



001414 
000403 
032703 
001410 

012737 
004 7b 7 
104000 
000031 
001325 

005067 
005037 
005037 
005037 
000167 



000004 



004056 
175276 



173372 
177744 
177766 
001116 
000000 



001120 



201$; 
202 <: 



BEQ 


5* 


»THEN EXIT TEST 


BR 


202$ 


lELSE jEXPECTED A MISS GO TO ERROR 


BIT 


*BIT02,R3 


iIF HIT /MISS REG. BIT 2 NOT SET 


BEQ 


5* 


iTHEN EXIT TEST. ELSE GO TO ERROR 


MOV 


0TST11»4 ,a#SOr TRE 


jMOVE RETRY ADDRESS TO SOf T RETURN 


JSR 


PC , APTSr T 


;G0 TO SOFT ERROR SUBROUTINE 


ERROR 




iALL ERRORS TO TRAP TO EMT VECTOR 


. HUHU 


31 


lUNlUUt cHHUR NUnoER 


.UORD 


ERRMSG 


(ADDRESS OF ERROR MESSAGE 






I CACHE SYSTEM ERROR 


CLR 


CCR 


; CLEAR BYPASS BIT BEFORE EXIT 


CLR 


S«MSER 


! CLEAR THE MEM SYS ERROR REG 


CLR 


a*CPEREG 


J CLEAR THE CPU ERROR REGISTER 


CLR 


S^SOFTER 


! CLEAR THE SOFT ERROR COUNT 


JMP 


TST12 


;JUMP OVER DATA TABLES OR SUBROUTINES 



5*: 



:T0 NEXT TEST 
CTST12: 

;*TEST 12 TEST WRITE WRONG DATA PARITY 

; WRITE WRONG DATA PARITY TEST- THIS TEST WILL VERIFY THAT WHEN CCR 
BIT<6> - 1 AND CCR BITS<7.0> - 0.1. A READ MISS OCCURS AFTER A 
WRITE. THE WRITE WITH CCR BIT<6> • 1 TO A LOCATION WILL CAUSE A 
CACHE UPDATE AND WRONG PARITY TO BE WRITTEN SO WHEN THE LOCATION 
IS READ INSTEAD OF A HIT BEING RECORDED THE CACHE PARITY ERROR 
WILL CAUSE A CACHE MISS. THIS TEST WILL BE DONE A BYTE AT A TIME. 
NOTE: IF BOTH ERRORS OCCUR CCGA MOST LIKELY BAD. 

IF ONLY ONE ERROR OCCURS CCGA LEAST LIKELY. 

BGNTST 

J SAVE CONTENTS OF VECTOR 114 
;LET VECTOR 114 POINT TO ABORT ROUTINE 
; CLEAR MSER 
IF MSER NOT CLEAR THEN 

ERROR IN CACHE SYSTEM 

ENOIF 

WRITE TEST LOCATION 

SET BITS<6.0> IN CCR 

WRITE TEST LOCATION LOW BYTE 
jCLEAR CCR BIT<6> (WRITE WRONG DATA PARITY) 
{INITIALIZE ERROR INDICATORS 
{READ TEST LOCATION LOW BYTE 
J IF BIT<1> SET IN HIT/MISS REGISTER THEN 
ERROR IN CACHE SYSTEM 

ELSE 

IF MSER BITS <7;5> ZERO THEN 
ERROR IN CACHE SYSTEM 
ENOIF 

ENOIF 

CLEAR MSER 

IF MSER NOT CLEAR THEN 

ERROR IN CACHE SYSTEM 

ENOIF 

SET CCR BIT<6> 



N3 



GLOBAL AREAS 
KOJllA.MAC 

1749 
1750 
1751 
1752 
1753 
1754 
1755 
1756 
1757 
1758 
1759 
1760 
1761 
1762 
1763 
1764 
1765 
1766 
1767 
1768 
1769 



MACYll 50AC1052) 
03 APR -84 11:36 



04 APR 84 

T12 



10:38 PAGE 39 

TEST URITE URONG DATA PARITY 



SEO O039 



;URITE TEST LOCATION HIGH BYTE 
CLEAR CCR BIT<6> 
READ TEST LOCATION HIGH BYTE 
IF BIT<1> SET IN HIT/MISS REGISTER THEN 
ERROR IN CACHE SYSTEM 

ELSE 

IF USER BITS <7:5> ZERO THEN 
ERROR IN CACHE SYSTEM 

ENOIF 

ENDIF 

RESTORE CONTENTS OF VECTOR 114 
IF ERROR INDICATORS SFT THEN 
ERROR IN CACHE SYSTEM 

ENOIF 

EXIT TST 



DATA PARITY ABORT R0UTIi4E: 

ERROR IN CACHE SYSTEM 



ENOTST 



RETURN 



1770 










TST12: 






1771 


004374 












1772 


004374 


005267 


174404 






INC 


»TESTN 


1773 


004400 


013767 


000114 


174422 




MOV 


8vll4, SLOCOO 


1774 


004406 


012737 


004706 


000114 




MOV 


vOAP ABO , 801 14 


1775 


004414 


005067 


173324 






CLR 


MSER 














TCT 




1777 


004424 


001403 








BEQ 


11 


1778 


004426 


104000 








ERROR 




1779 


004430 


000032 








.WORD 


32 


1780 


004432 


001325 








.WORD 


ERRMSG 


1781 
















1782 


004434 


005037 


001122 




1(: 


CLR 


aoTSTLOC 


1783 


004440 


012767 


000101 


173300 




MOV 


«101. CCR 


1784 














1785 


004446 


112767 


000377 


174446 




MOVB 


«377. TSTLOC 


1786 


004454 


042767 


000100 


173264 




BIC 


«BIT06. CCR 


1787 


004462 


105737 


001122 






TSTB 


OOTSTLOC 


1788 


004466 


032767 


000010 


173256 




BIT 


•BIT03. HITMIS 


1789 


004474 


001410 








BEQ 


21 


1790 


004476 


012737 


004400 


001120 




MOV 


«TST12»4.»#S0FTRE 


1791 


004504 


004767 


175130 






JSR 


PC.APTSFT 


1792 


004510 


104000 








ERROR 


1793 


004512 


000033 








.WORD 


33 


1794 


004514 


001325 








.WORD 


ERRMSG 


1795 
















1796 


004516 


032767 


000340 


173220 


2*: 


BIT 


0340. MSER 


1797 


004524 


001003 








BNE 


3$ 


1798 


004526 


104000 








ERROR 




1799 


004530 


000034 








.WORD 


34 


1800 


004532 


001325 








.WORD 


ERRMSG 


1801 
















1802 


004534 


005067 


173204 




3<: 


CLR 


MSER 


1805 


004540 


005767 


173200 






TST 


MSER 


1804 


004544 


001403 








BEQ 


4$ 



INCREMENT TEST NUMBER 

SAVE CONTENTS OF VECTOR 114 

LET VECTOR POINT TO ABORT ROUTINE 

CLEAR MSER 

IF MSER NOT CLEAR 

THEN 

ALL ERRORS TO TRAP TO EMT VECTOR 
UNIQUE ERROR NUMBER 
ADDRESS OF ERROR MESSAGE 

; CACHE SYSTEM ERROR 
WRITE TEST LOCATION TO ALLOCATE CACHE 
SET BITS<6.0> IN CCR 

URITE URONG DATA PARITY t IGNORE PARITY INTERRUP 
URITE LOU BYTE WITH BAD PARITY 
CLEAR URITE URONG DATA PARITY BIT 
READ LOU BYTE OF TEST LOCATION 

EXPECT A MISS J IF BIT 3 SET IN HIT/MISS REGISTE 
THEN 

MOVE RETRY ADDRESS TO SOFT RETURN 
GO TO SOFT ERROR SUBROUTINE 
ALL ERRORS TO TRAP TO EMT VECTOR 
UNIQUE ERROR NUMBER 
ADDRESS OF ERROR MESSAGE 

; CACHE SYSTEM ERROR 
IF MSER BITS <7!5> ZERO 
THEN 

ALL ERRORS TO TRAP TO EMT VECTOR 
JNIQUE ERROR NUMBER 
ADDRESS OF ERROR MESSAGE 

J CACHE SYSTEM ERROR 

CLEAR MSER 

IF MSER NOT CLEAR 

THEN 



B4 



GLOBAL AREAS 
KDJllA.MAC 



MACvll S0A(1052) 04 APR 84 
03 APR 84 11:56 T12 



10 



58 PAGE 40 
TEST WRITE WRONG 



DATA PARITY 



"jEQ 0040 



1805 
1806 
1807 
1808 
180<» 
1610 
1811 
1812 
1815 
1S14 
1815 
1816 
1817 
1818 
1819 
1820 
1821 
1822 
1823 
1824 
1825 
1826 
1827 
1828 
1829 
1830 
1851 
1852 
1853 
1834 
1855 
1856 
1857 
1838 
1839 
1840 
1841 
1842 
1843 
1844 
1845 
1846 
1647 
1848 
1849 
1850 
1851 
1852 
1853 
1854 
1855 
1856 
1857 
1858 
1859 
I860 



004546 
004550 
004552 

004554 
004562 
004570 
004576 
004602 
004610 
004612 
004620 
004624 
004626 
0046S0 

004632 
004654 
004642 
004644 
004646 
004650 

004652 
004660 
004666 
004666 
004672 
004676 
004702 



004706 
004706 
004710 
004712 



104000 
000055 
001325 

052767 
112757 
042767 
105 75 7 
052767 
001411 
012757 
004767 
104000 
000056 
001325 

000407 
052767 
001005 
104000 

000037 
001525 

012767 
016757 

005057 
005057 
005057 
000167 



104000 
000040 
001325 



004714 000002 



004716 



000100 
000577 
000100 
001125 
000010 

004400 

175014 



175164 
001125 
175150 

175142 

001120 



000400 
174144 

177744 

177766 
001116 
000010 



175066 
000114 



41: 



000540 175102 5t: 



6f : 
7«; 



OAPABO: 



ERROR 
.WORD 
.WORD 

BIS 

novB 

BIC 

TSTB 

BIT 

BEQ 

MOV 

JSR 

ERROR 

.WORD 

.WORD 

BR 

BIT 

BNE 

ERROR 

.WORD 

.WORD 

NOV 
NOV 

CLR 
CLR 
CLR 
JMP 



ERROR 
.WORD 
.WORD 

RTI 



35 

ERRHSG 

•BIT06. CCR 

♦577. 8»TSTL0C.l 

•BIT06. CCR 

8«TSTL0C>1 

•BIT03. HITNIS 

5« 

•TST12»4,B#S0FTR€ 
PC.APTSFT 

36 

ERRNSG 
6* 

«540. NSER 
6* 

57 

ERRNSG 

•BIT08.CCR 
SLOCOO. Ml 14 

0«NSER 
04CPEREG 
8*S0rTER 
TST15 



40 

ERRNSG 



ALL ERRORS TO TRAP TO EMT VECTOR 
UNIQUE ERROR NUNBER 
ADDRESS or ERROR NESSAGE 

I CACHE StSTEH error 
SET CCR BIT 6 (WRITE WRONG PARITY) 
WRITE MIGM BYTE V TEST LCKATION 
CLEAR WRITE WRONG PARITY BIT 
READ MIGM BYTE OF TEST LOCATION 
IF BIT 5 SET IN MIT/MISS REGISTER 
TMEN 

MOVE RETRY ADDRESS TO SOTT RETURN 
GO TO SOFT ERROR SUBROUTINE 
ALL ERRORS TO TRAP TO ENT VECTOR 
UNIQUE ERROR NUNBER 
ADDRESS or ERROR NESSAGE 

I CACHE SYSTEM ERROR 
GO TO NEXT TEST IF NO HALT ON ERROR 
IF BITS <7:5> ZERO 
TMEN 

ALL ERRORS TO TRAP TO ENT VECTOR 
UNIQUE ERROR NUNBER 
ADDRESS OF ERROR NESSAGE 

(CACHE SYSTEM ERROR 
FLUSH CACHE. CLEAR CCR BEFORE EXIT 
RESTORE CONTENTS OF VECTOR 114 

CLEAR THE MEN SYS ERROR REG 

CLEAR THE CPU ERROR REGISTER 

CLEAR THE SOFT ERROR COUNT 

JUMP OVER DATA TABLES OR SUBROUTINES 

TO NEXT TEST 



sALL ERRORS TO TRAP TO EMT VECTOR 
I UNIQUE ERROR NUMBER 
{ADDRESS OF ERROR MESSAGE 

I CACHE SYSTEM ERROR 



CTST15: 
i«TEST 15 



TEST WRITE WRONG TAG PARITY 



iWRITE WRONG TAG PARITY - THIS TEST WILL VERIFY THAT A READ MISS 
lOCCURS AFTER A WRITE WILL CCR<10> • 1 AND CCR<7.0> -CI. THE WRITE 
I TO THE LOCATION WILL CAUSE A CACHE UPDATE BUT THE TAG WILL BE 
•WRITTEN WITH THE WRONG PARITY. WHEN THE LOCATION IS READ INSTEAD 
lOF A CACHE HIT OCCURRING THE PARITY ERROR SHOULD CAUSE A CACHE 
iMISS. 

!bgntst 

i save contents of vector 114 

ilet vector 114 point to abort routinf 

i CLEAR MSER 



04 APR^^ 



10 



URONG TAG PARITt 



''^EQ no«i 



1061 
106^ 
106S 

iet>4 

1M5 
1066 
1*6" 
1060 
1069 
1070 
1071 
1072 
1075 
10 '4 
1075 
1076 
1077 
1070 
1079 
1000 
1001 
1002 
1003 
1004 
1005 
1006 
1007 
1000 
1009 
1090 
1091 
1092 
1093 
1094 
1095 
1096 
1097 
1090 
1099 
1900 
1901 
1902 
1903 
1904 
1905 
1906 
1907 
1909 
1909 
1910 
1911 
1912 
1915 
1914 
1915 
1916 



004716 
004716 



004722 
004730 
004736 
004742 
004 -"SO 
0047S4 
004762 
004766 
004774 
004776 
005004 
005010 
005012 
005014 

005016 
005020 
005020 
005022 
005024 

005026 
005034 
005042 
005046 
005052 
005056 



005062 
005062 
005064 
005066 



005267 174062 



013767 
012737 
005067 
012767 
005037 
012767 
005737 
032767 
001414 
012737 
004767 
104000 
000041 
001325 

000403 

104000 
000042 
001325 

012767 
016737 
005037 
005037 
005037 
000167 



104000 
000043 
001325 



000114 
005062 
173002 
002001 
001122 
000001 
001122 
000010 

004722 
174630 



174100 
000114 

172776 

172764 

172756 

001120 



000400 

173770 
177744 
177766 
001116 
000010 



172712 
000114 



iSET URITE URONG TAG PARITY BIT<10> 
jURITE TEST LOCATION 

jCLEAB CCR BIT<10> AND SET ABORT DISABLE BIT<0> 
I READ TEST LOCATION 

J IF BIT<1> SET IN HIT/HISS REGISTER THEN 
t. ERROR IN CACHE SYSTEM 

lELSE 

I . ERROR IN CACHE SYSTEM 

jENOIE 

(RESTORE VECTOR 114 
iEXIT TST 

I TAG PARITY ABORT ROUTINE: 

i ERROR IN CACHE SYSTEM 

RETURN 

lENDTST 

I I ******************* ****•**••***********•«•****• A***^ 

T5T13: 

INC ITESTN 

NOTE «•***•***••****••*•*•*«** 

I DON'T SINGLE STEP THIS CODE USING THE DDT P COMMANO!!! 
I PARITY ERRORS WILL OCCUR. 



(INCREMENT TEST NUMBER 



1<: 



21: 



TAPABO: 



MOV 


8*114. SLOCOO 


tSAVE CONTENTS OF VECTOR 114 


MOV 


•TAP ABO. Ml 14 


iLET VECTOR POINT TO ABORT ROUTINE 


CLR 


MSER 


1 CLEAR MSER 


MOV 


•2001. CCR 


iSET URITE URONG TAG PARITY £ NO PARITt INTERRJP 


CLR 


MTSTLOC 


lURITE LOCATION UITH BAD TAG PARITY 


MOV 


•81 TOO. CCR 


tCLEAR BIT 10 AND SET NO PARITY INTERRUPTS 


TST 


MTSTLOC 


iREAO TEST LOCATION 


BIT 


•BIT03. HI THIS 


iir BIT 3 SET IN HIT /MISS REGISTER 


BEQ 


2$ 


iTHEN 


MOV 


•TST13*4.MS0FTRE 


iMOVE RETRY ADDRESS TO SOFT RETURN 


JSR 


PC.APTSn 


iGO TO SOFT ERROR SUBROUTINE 


ERROR 




(ALL ERRORS TO TRAP TO EMT VECTOR 


.WORD 


41 


(UNIQUE ERROR NUMBER 


.WORD 


ERRMSG 


(ADDRESS OF ERROR MESSAGE 






(CACHE SYSTEM ERROR 


BR 


2t 


(ELSE 


ERROR 




(ALL ERRORS TO TRAP TO EMT VECTOR 


.UORO 


42 


(UNIQUE ERROR NUMBER 


.WORD 


ERRMSG 


(ADDRESS OF ERROR MESSAGE 






(CACHE SYSTEM ERROR 


MOV 


•61 TOO. CCR 


(FLUSH CACHE. CLEAR CCR BEFORE EXIT 


MOV 


SLOCOO. B*114 


(RESTORE CONTENTS OF VECTOR 114 


CLR 


S«MSER 


t CLEAR THE MEM SyS ERROR REG 


CLR 


8«CPEREG 


(CLEAR THE CPU ERROR REGISTER 


CLR 


MSOFTER 


(CLEAR THE SOFT ERROR COUNT 


JMP 


TST14 


(JUMP OVER DATA TABLES OR SUBROUTINE^ 






(TO NEXT TEST 


1: 

ERROR 




(ALL ERRORS TO TRAP TO EMT VECTOR 


.WORD 


43 


(UNIQUE ERROR NUMBER 


.WORD 


ERRMSG 


(ADDRESS OF ERROR MESSAGE 



04 APR 



D4 



WRONG TAG PARITf 



•^Q 0042 



1917 
1918 
1919 
1920 
1921 
1922 
1923 
1924 
1925 
1926 
1927 
1920 
1929 
1930 
1931 
1952 
1935 
1934 
1935 
1936 
1937 
1938 
1939 
1940 
1941 
1942 
1943 
1944 
194!: 
1946 
1947 
1946 
1949 
1950 
1951 
1952 
1953 
1954 
1955 
1956 
1957 
1958 
1959 
1960 
1961 
1962 
1963 
1964 
1965 
1966 
1967 
1968 
1969 
1970 
1971 
1972 



005070 000002 



005072 



RTI 



I CACHE SYSTEM ERROR 



005072 
005072 
005076 

005102 
005110 

005116 
005124 
005126 
005134 
005140 
005144 
005150 
005156 
005164 



005267 
004767 

012767 
012737 

052767 
005001 
052767 
005077 
005067 
005037 
013767 
012737 
005101 



173706 
174310 

001600 
140000 

000001 

000100 
173762 
172602 
17774A 
000114 
005244 



165244 
001122 

172446 

172612 



173652 
000114 



CTST15: 



TEST PARITY INTERRUPT 



J •TEST 14 

jpARITY INTERRUPT TEST - THIS TEST WILL VERIFY THAT WHEN CCR'7.0» 
iO.O. A PARITY INTERRUPT OCCURS AFTER EXECUTION OF AN INSTRUCTION 
(THAT HAS BEEN WRITTEN WITH WRONG PARITY. 



BGNTST 

SAVE CONTENTS OF 114 

SETUP VECTOR 114 TO POINT TO INTERRUPT ROUTINE 
CLEAR EXPECTING INTERRUPT FLAG 
WRITE TEST ADDRESS WITH BAD PARITY 
SET EXPECTING INTERRUPT FLAG 
READ TEST ADDRESS 
IF INTERRUPT FLAG NE 0 THEN 
ERROR IN CACHE SYSTEM 

ENOIF 

RESTORE CONTENTS OF VECTOR 114 
EXIT TST 



t 
t 
t 
I 

; 
i 
I 
I 
t 
i 

! INTERRUPT ROUTINE 
I 
I 
I 
I 
t 
I 
s 
i 
s 
I 
i 

!enotst 

II***** 

TST 14: 



IF EXPECTING INTERRUPT FLAG NE 1 THEN 
ERROR IN CACHE SYSTEM 





ELSE 






CLEAR 


(EXPECTING) INTERRUPT FLAG 




ENOIF 






IF SAVED PC Nfe 


TO UPDATED PC THEN 




ERROR 


IN CACHE SYSTEM 




ENOIF 






IF MSER NE «340 THEN 




ERROR 


IN CACHE SYSTEM 




ENOIF 






RETURN 




INC 


ITESTN 


{INCREMENT TEST NUMBER 


JSR 


PC.INITMM 


tINIT MMUi PAGE ZERO REFERENCES WILL 




iBVPASS CACHE. 


MOV 


«1600.KIPAR6 


J SET PAR6 TO RELOCATE TO BANK 7 


MOV 


«14OOOO.0«TSTLOC 


iSET UP TEST LOCATION TO OBTAIN 




{PHYSICAL AOOR VIA KIPAR6. 


BIS 


«BITOO.SRO 


iTURN ON MMU 


CLR 


Rl 


iCLEAR EXPECTING INTERRUPT FLAG 


BIS 


•6IT06. CCR 


iSET WRITE WRONG DATA PARITY 


CLR 


aTSTLOC 


iWRITE CACHE LOCATION 0 WITH BAD DATA paRIT* 


CLR 


CCR 


iCLEAR WRITE WRONG DATA PARITY 


CLR 


8«MSER 


ilNIT MSER 


MOV 


8*114,SL0C00 


iSAVE CONTENTS OF VECTOR 114 


MOV 


•INTERR.8«114 


iLET VECTOR POINT TO INTERRUPT ROUTINE. 


COM 


Rl 


iSET EXPECTING INTERRUPT FlAG 



F4 



GLOBAL ARMb 
KOJllA.HAC 



MAC 111 SOAt 1052) 
03APR 64 11:36 



04 APR 84 
T14 



10:58 PAGE 43 

TEST PARITY INTERRUPT 



1973 
1974 
1975 
1976 
1977 
1976 
1979 
1960 
1961 
1962 
1963 
1964 
1965 
1966 
1967 
1966 
1969 
1990 
1991 
1992 
1993 
1994 
1995 
1996 
1997 
1996 
1999 
2000 
2001 
2002 
2003 
2004 
2005 
2006 
2007 
2008 
2009 
2010 
2011 
2012 
2013 
2014 
2015 
2016 
2017 
2018 
2019 
2020 
2021 
2022 
2023 
2024 
2025 
2026 
2027 
2028 



005166 
005172 

005174 

005176 
005200 
005202 

005204 
005212 
005216 
005224 
005230 
005234 
005240 



005244 
005246 
005250 
005252 
005254 

005256 
005260 
005262 
005266 
005270 
005272 
005274 

005276 
005304 
005306 
005310 
005312 



005777 
005701 

001403 
104000 
000044 

001325 

016737 
005067 
012737 
005037 
005037 
005037 
000167 



005701 
001004 
104000 
000045 
001325 

000401 
0O5001 
021627 
001403 
104000 
000046 
001325 

022767 
001403 
104000 
000047 
001325 



173730 



005314 000002 



005316 



173620 000114 
172354 

000400 177746 

177744 

177766 

001116 

000052 



005172 



INTRPC: TST 
^ST 

BEQ 
ERROR 
.WORD 
.WORD 

li: HOV 
CLR 

nov 

CLR 
CLR 
CLR 
JMP 



INTERR: TST 
BNE 
ERROR 
.WORD 
.WORD 



It: 
2*: 



000340 172440 41: 



5(: 



BR 

CLR 

CMP 

BEQ 

ERROR 

.WORD 

.WORD 

CMP 

BEQ 

ERROR 

.WORD 

.UORO 

RTI 



8TSTL0C 
Rl 

It 

44 

ERRMSG 

SLOCOO. S«114 
SRO 

•BIT08.S«CCR 

a«MSER 

S*CPEREG 

MSOTTER 

TST15 



Rl 
1* 

45 

ERRMSG 

2t 
Rl 

-asp. 

46 

ERRMSG 

•340. 
5t 

47 

ERRMSG 



•INTRPC *4 



MSER 



CTST17: 



SEQ 0043 

READ TEST LOCATIONj SHOULD GET PARITY INTERRUPT 

RETURN MERE FROM INTERRUPT 

IF INTERRUPT FLAG NOT EQUAL ZERO 

THEN UE DIDN'T GET A PARITr INTERRUPT. 

ALL ERRORS TO TRAP TO EMT VECTOR 

UNIQUE ERROR NUMBER 

ADDRESS OF ERROR MESSAGE 

I CACHE SrSTEM ERROR 
RESTORE VECTOR 114 
TURN OFF MMU 
FLUSH CACHE. CLEAR CCR 
CLEAR THE MEM SYS ERROR REG 
CLEAR THE CPU ERROR REGISTER 
CLEAR THE SOFT ERROR COUNT 
JinP OVER DATA TABLES OR SUBROUTINES 
TO NEXT TEST 

IF EXPECTING INTERRUPT FLAG NOT SET 
THEN 

ALL ERRORS TO TRAP TO EMT VECTOR 
UNIQUE ERROR NUMBER 
ADDRESS OF ERROR MESSAGE 

i CACHE SYSTEM ERROR 

ELSE 

CLEAR (EXPECTING) INTERRUPT FLAG 
IF SAVED PC NOT EQUAL TO UPDATED PC 
THEN 

ALL ERRORS TO TRAP TO EMT VECTOR 
UNIQUE ERROR NUMBER 
ADDRESS OF ERROR MESSAGE 

; CACHE SYSTEM ERROR 
IF MSER NOT EQUAL TO EXPECTED VALUE 
THEN 

ALL ERRORS TO TRAP TO EMT VECTOR 
UNIQUE ERROR NUMBER 
ADDRESS OF ERROR MESSAGE 

(CACHE SYSTEM ERROR 

{RETURN 



I •TEST 15 



TEST THAT PARITY ERRORS BLOCKED BY NXM ABORT 



I CHECK PARITY ABORTS BLOCKED BY NON-EXISTENT MEMORY ABORT • THIS TEST WILL 
t VERIFY THAT IF A PARITY ERROR OCCURS ON THE SAME ADDRESS REFERENCE AS A 
I NON-EXISTENT MEMORY ERROR THAT THE CACHE DATA PATH GATE ARRAY BLOCKS THE 
{PARITY ERROR TO THE J-11 CHIP SET. THIS WILL BE DONE BY USING THE DIAGNOSTIC 
iBIT TO CAUSE A PARITY ERROR IN A CACHE REFERENCE THAT DOES NOT HAVE A 
1 CORRESPONDING ADDRESS IN MAIN MEMORY. THE ADDRESS WILL THEN BE READ CAUSING 
iBOTH A CACHE PARITY ERROR AND A NON EXISTENT MEMORY ERROR. TO AVOID HAVING 
{TO SIZE THE ENTIRE MEMORY TO FIND A NON-EXISTENT MEMORY ADDRESS THIS TEST 
;WILL USE THE LARGEST NON-I/O ADDRESS (17757776). THE TEST WILL FIRST READ 
I THIS ADDRESS AND IF A NXM TRAP OCCURS THE TEST WILL BE DONE. IF THE ACCESS 
J TO THIS ADDRESS DOES NOT TRAP THEN THE TEST WILL BE SKIPPED. 



(-4 



GLOBAL AREAS 
KDJllA.MAC 



^029 
2030 
2031 
2032 
2033 
2034 
2035 
2036 
2037 
2035 
20S9 
2040 
2041 
2042 
2045 
2044 
2045 
2046 
2047 
2048 
2049 
2050 
2051 
2052 
2053 
2054 
2055 
2056 
2057 
2056 
2059 
2060 
2061 
2062 
206S 
2064 
2065 
2066 
2067 
2066 
2069 
2070 
2071 
2072 
2073 
2074 
2075 
2076 
2077 
2076 
2079 
2080 
2061 
2082 
2083 
2084 



HACUl 30 A( 1052) 
03 APR 84 11:36 



005316 
005316 
005322 
005326 
005354 
005542 
005550 
005556 
005564 
005570 
005572 
005576 
005404 
005410 
005416 
005424 
005452 
005456 
005440 
005442 

005444 
005446 
005452 



005267 
015704 
013767 
012737 
012767 
012767 
052757 
005757 
000455 
062706 
012767 
005057 
012767 
012757 
012757 
005757 
104000 
000050 
001525 

000407 
005067 
104000 



04 APR 84 10:58 PAGE 44 

T15 TEST THAT PARITY ERRORS BLOcKEO BY NXM ABORT 

iSGNTST 

I SAVE CONTENTS OF VECTOR 4 
aSAVE CONTENTS OT VECTOR 114 

jLET VECTOR 4 POINT TO CONTINUE TESTING (A:) 
a LET PAR6 ♦I 77400 

jACCESS ADDRESS 157776 (PHYSICAL 17757776) 

I IF NO TRAP THEN 

t. GOTO ENOTST 

iENDIF 

; A- 

:SET DIAGNOSTIC AND WRITE WRONG PARITY BITS IN CCR 
jWRITE ADDRESS 157776 
J CLEAR CCR 

jSET PARITY ERROR ABORT BIT IN CCR 

iLET VECTOR 4 POINT TO CONTINUE TESTING (B:) 

;LET VECTOR 114 POINT TO NXH PARITY ERROR ROUTINE 

I READ ADDRESS 157776 

ilF NO TRAP THEN 

i . ERROR IN CACHE SYSTEM 

: END IF 

:B: 

» CLEAR CCR 

iRESTORE CONTENTS OF VECTOR 114 
(RESTORE CONTENTS OF VECTOR 4 
tEXIT TST 



SEQ 0044 



175462 
000004 
000114 
005372 
177400 
000020 
000001 
157776 

000004 
000102 
157776 
000200 
005460 
005446 
157776 



1 72120 



175474 
000004 
165004 
165140 
177572 



172542 

172550 
000004 
000114 



tNXM-PARITY ERROR ROUTINE: 



;ENDTST 
TST15: 



RESET STACK AFTER TRAP 
ERROR IN CACHE SYSTEM 
GOTO B: 



It: 



100«i 



INC 


♦TESTN 


J INCREMENT TEST NUMBER 


MOV 


3^4 R4 


;SAVE CONTENTS OF VECTOR 4 


MOV 


84114. SLOCOO 


iSAVE CONTENTS OF VECTOR 114 


MOV 


«lt. S«4 


iLET VECTOR 4 POINT TO CONTINUE TESTING 


MOV 


♦177400, KIPAR6 


5 LET PAR6 - OFFSET TO HIGHEST MEMORY 


MOV 


♦20.SR5 


{ENABLE 22 BIT ADDRESSING. 


BIS 


«6IT00.a«SR0 


{ENABLE MMU 


TST 


S0157776 


{ACCESS ADDRESS 17757776 


BR 


3t 


{IF IT DOESN'T TRAP THEN SKIP THIS TEST 


ADO 


44. SP 


{RESET STACK AFTER TRAP 


MOV 


4102, CCR 


{SET DIAG. AND WRITE WRONG DATA PARITY BITS 


CLR 


S4157776 


{WRITE TO ADDRESS 17757776 


MOV 


•200, CCR 


{CLEAR CCR AND SET PARITY ABORT BIT 


MOV 


02 (. 804 
«100». 84114 


{LET VECTOR 4 POINT TO CONTINUE TESTING 


MOV 


{LET VECTOR 114 POINT TO ERROR ROUTINE 


TST 


84157776 


{READ ADDRESS 17757776 (SHOULD TRAP) 


ERROR 




J ALL ERRORS TO TRAP TO EMT VECTOR 


.WORD 


50 


(UNIQUE ERROR NUMBER 


.WORD 


ERRMSG 


(ADDRESS OF ERROR MESSAGE 




(CACHE SYSTEM ERROR 


BR 


5» 


{GO EXIT TEST 


CLR 


SRO 


;TURN OFF MflU BEFORE ERROR 


ERROR 




{ALL ERRORS TO TRAP TO EMT VECTOR 



GLOBAL AREAS MACvll 50A(1052) 
KDJllA.MAC 03 -APR 84 11:56 

2065 005454 000051 
2086 005456 001525 
2087 

2088 005460 062706 000004 

2089 005464 005067 172256 

2090 005470 010457 OOOC04 

2091 005474 016757 175550 

2092 005502 005067 172064 
2095 005506 005057 177744 

2094 005512 005057 177766 

2095 005516 005057 001116 

2096 005522 000167 000000 
2097 

2098 
2099 
2100 

2101 005526 

2102 

2105 

2104 

2105 

2106 

2107 

2106 

2109 

2110 

2111 

2112 

2113 

2114 

2115 

2116 

2117 

2116 

2119 

2120 

2121 

2122 

2125 

2124 

2125 

2126 

2127 

2128 

2129 

2150 

2151 

2152 

2135 

2154 

2155 

2156 

2157 

2156 

2159 

2140 



G4 



04 

T15 



2*: 
3(: 



10:38 PAGE 45 

TEST THAT PARITY ERRORS BLOCKED BY NXM ABORT 



SEQ 004 



.WORD 
.UORD 

ADD 
CLR 
HOV 
MOV 
CLR 
CLR 
CLR 
CLR 
JMP 



51 

ERRMSG 



SP 



•4. 

CCR 
R4 . S*4 
SLOCOO. S«114 
SRO 

S«MSER 
04CPEREG 
9«S0rTER 
TST16 



I UNIQUE FRROR NUMBER 

I ADDRESS OF ERROR MESSAGE 

I CACHE SYSTEM ERROR 
I RE SET STACK AFTER TRAP 
I CLEAR CCR FOR EXIT 
{RESTORE VECTOR 4 
t RESTORE VECTOR 114 
I TURN OFF MMU BEFORE EXITING. 
I CLEAR THE MEM SYS ERROR REG 
t CLEAR THE CPU ERROR REGISTER 
J CLEAR THE SOFT ERROR COUNT 
(JUMP OVER DATA TABLES OR SUBROUTINES 
;T0 NEXT TEST 



CTST20: 



•TEST 16 TEST MULTIPROCESSING INSTRUCTIONS 

liuLTIPROCCESSING INSTRUCTION TESTS - THIS TEST WILL VERIFY THAT THE MULTI 
PROCCESSING INSTRUCTIONS DO A BYPASS OF THE CACHE. THIS TEST WILL NOT VERIFY 
THE REST OF THE FUNCTIONALITY OF THESE INSTRUCTIONS BECAUSE THAT WILL ALREADY 
HAVE BEEN CHECKED IN THE BASE INSTRUCTION TESTS. 

THE TEST FOR TSTSET AND WRTLCK WILL FIRST ALLOCATE AN ADDRESS IN CACHE WITH 
KNOWN DATA. THEN FORCE CACHE MISS WILL BE ENABLED AND THE SAME ADDRESS WILL 
BE WRITTEN WITH WITH DIFFERENT DATA. THIS WILL SET UP CACHE WITH DATA 1 AND 
IT'S ASSOCIATED MEMORY LOCATION WITH DATA 2. FORCE CACHE MISS WILL THEN BE 
DISABLED AND THE TSTSET/WRTLCK INSTRUCTION WILL BE EXECUTED. THIS INSTRUCTION 
WILL CAUSE CACHE TO BE BYPASSED AND AN ACCESS TO MAIN MEMORY WILL BE MADE. IN 
ADDITION THIS INSTRUCTION WILL CAUSE CACHE TO BE RE-ALLOCATED WITH THE CORRECTjOATA. 
THE TEST FOR ASRB INSTRUCTION DIFFERS SLIGHTLY. FIRST THE CACHE WILL BE 
ALLOCATED. THEN AN ASRB INSTRUCTION WILL BE DONE AT THAT ADDRESS. 
A HIT SHOULD BE RECORDED ON THE ACCESS. HEX! . THE ADDRESS WILL BE READ AND 
A MISS SHOULD BE RECORDED BECAUSE THE FORCED BYPASS ON THE ASRB INSTRUCTION 
SHOULD HAVE INVALIDATED THE CACHE ENTRY. AND BECAUSE IT'S A BYTE WRITE: CACHE 
WILL NOT BE RE -ALLOCATED. 

«****NOTE***** 

IF THE TSTSET OR WRTLCK ISTRUCTIONS ARE ASSEMBLED SO THAT BITS 
5-0 OF THE ADDRESS OF THE INSTRUCTION FOLLOWING THE TSTSET/WRTLCK INSTRUCTION 
ARE EQUAL TO BITS 5-0 OF THE TSTLOC ADDRESS THE TEST WILL F.'IL. THIS IS CAUSED 
BY THE NEED OF AN ADDITIONAL FETCH WHEN THE PRE -FETCH BUFFER IS INVALIDATED 
WHEN BITS 5-0 OF AN ADDRESS WRITTEN TO ARE EQUAL TO BITS 5 C OF THE ADDRESS 
IN THE PREFETCH BUFFER. THE ADDITIONAL FETCH CAUSES THE REQUIRED DATA TO BE 
SHIFTED OUT OF THE RANGE OF THE HIT/MISS REGISTER. PADDING THE FRONT OF THE 
TEST WITH NOPS MAY BE REQUIRED TO REMEDY THIS PROBLEM. 
BGNTST 

READ TEST LOCATION TO ALLOCATE CACHE 
DO TSTSET INSTRUCTION 

IF HIT/HISS REGISTER BIT 5 NOT SET THEN 
ERROR IN CACHE SYSTEM 

ENOIF 

READ TEST LOCATION 

IF HIT/MISS REGISTER BIT 5 SET THEN 
ERROR IN CACHE SYSTEM 

ENOIF 



GLOBAL AREAS 
KOJllA.MAC 



HACtll 30A(1052) 
05 APR 84 11:36 



H4 

04 APR 64 10:39 PAGE 46 

T16 TEST MULTIPROCESSING INSTRUCTIONS 



SEQ O046 



«>141 
2142 
2145 
2144 
2145 
2146 
2147 
2148 
2149 
2150 
2151 
2152 
2153 
2154 
2155 
2156 
2157 
2158 
2159 
2160 
2161 
2162 
2163 
2164 
2165 
2166 
2167 
2168 
2169 
2170 
2171 
2172 
2173 
2174 
2175 
2176 
2177 
2178 
2179 
2180 
2181 
2182 
2183 
2164 
2165 
2166 
2187 
2188 
2189 
2190 
2191 
2192 
2193 
2194 
2195 
2196 



005526 
005526 
005532 
005536 
005544 



005267 173252 

005067 173364 

012767 000004 172202 

012737 177777 001122 



005552 005037 177746 



005556 
005560 
005562 
005564 
005572 
005574 
005602 
005606 
005610 
005612 



005614 
005616 
005616 
005620 
005622 



005624 
005632 

005634 
005642 
005644 
005652 
005656 
005660 



007237 
001122 
001415 
032767 
001014 
012737 
004767 
104000 
000052 
001325 



000403 

104000 
000053 
001325 



022767 
001015 

032767 
001014 
012737 
004767 
104000 
000054 



000040 172160 

005532 001120 
174032 



8 READ TEST LOCATION TO ALLOCATE CACHE 
jDO URTLCK INSTRUCTION 

ilf HIT/MISS REGISTER BIT 3 NOT SET THEN 
ERROR IN CACHE SYSTEM 

ENDIF 

READ TEST LOCATION 

IF HIT/MISS REGISTER BIT 5 SET THEN 
J , ERROR IN CACHE SYSTEM 

lENOIF 

iREAD TEST LOCATION TO ALLOCATE CACHE 
:D0 ASRB INSTRUCTION 

I IF HIT/MISS REGISTtR BIT 3 NOT SET THEN 
s . ERROR IN CACHE SYSTEM 

ENOIF 

READ TEST LOCATION 

IF HIT/MISS REGISTER BIT 3 SET THEN 
ERROR IN CACHE SYSTEM 

J ENOIF 
jENOTST 

; f ************************************** 

TST16: 

INC »TESTN 

CLR TSTLOC 

MOV «6IT02.CCR 

MOV •177777, aOTSTLOC 



000020 172110 

005532 001120 
173762 



loot: 



177777 173270 1»: 



CLR 

!uORO 

.UORD 

BEQ 

BIT 

BNE 

MOV 

JSR 

ERROR 

.WORD 

.WORD 



BR 

ERROR 
.WORD 
.UORD 



CMP 
BNE 

BIT 

BNE 

MOV 

JSR 

ERROR 

.WORD 



SOCCR 

TSTSET TSTLOC 

7237 

TSTLOC 

100$ 

#eiT05,HlTMIS 
1% 

•TST16*4.S«S0FTRE 
PC.APTSFT 

52 

ERRMSG 



1$ 



53 

ERRMSG 



<^177777. TSTLOC 
200$ 

#BIT04, HITMIS 
2$ 

#TST16»4.a*S0FTRE 
PC.APTSFT 

54 



; INCREMENT TEST NUMBER 

; WRITE TEST LOCATION TO ALLOCATE CACHE 

;SET CACHE TO FORCE MISS 

; WRITE TO MEMORY BUT NOT TO CACHE. 

;CACHE«000000; TSTLOC-177777 

J CLEAR FORCE MISS 

tDO TSTSET INSTRUCTION 

THESE NEXT TWO LOCATIONS ARE THE TSTSET 

INSTR. BECAUSE THL ASSEMBLER WAS NOT REAO» 

IF ■ 0 THEN CACHE WAS NOT BYPASSED 

IF HIT/MISS REGISTER BIT 5 IS SET 

THEN GO TO NEXT TEST. 

MOVE RETRY ADDRESS TO SOFT RETURN 

GO TO SOFT ERROR SUBROUTINE 

ALL ERRORS TO TRAP TO EMT VECTOR 

I^IQUE ERROR NUMBER 

ADDRESS OF ERROR f^SSAGE 

{CACHE SYSTEM ERROR 

ERROR! BIT 5 IN HIT MISS REG WAS NOT SET. 
I RECOVER FROM ERROR 

:ALL ERRORS TO TRAP TO EMT VECTOR 

t UNIQUE ERROR NUMBER 

I ADDRESS OF ERROR MESSAGE 

J CACHE SYSTEM ERROR 
J ERROR! CACHE WAS NOT BYPASSED By TSTSET 
jREAD TEST LOCATION fALSO ALLOCATES CACHE FQR 
iCACHE SHO<A.D BE RE -ALLOCATED WITH 
; 177777 AS A RESULT OF TSTSET INSTRUCTION. 
{IF HIT/MISS REGISTER BIT 4 SET (SHOULD BET 
{THEN 

{MOVE RETRY ADDRESS TO SOFT RETURN 
(GO TO SOFT ERROR SUBROUTINE 
{ALL ERRORS TO TRAP TO EMT VECTOR 
{LMIQUE ERROR NUMBER 



GLOBAL AREAS MACUl S0A(1052) 04 APR 84 10:S8 I 
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00S662 


001325 








.WORD 


2198 














2199 


005664 


000403 








BR 


2200 


005666 








200S: 




2201 


005666 


104000 








ERROR 


2202 


005670 


000055 








.WORD 


2203 


005672 


001325 








.WORD 


2204 














2205 














2206 


005674 


012767 


000004 


172044 


2«: 


MOV 


2207 


005702 


005067 


173214 






CLR 


2208 


005706 


005000 








CLR 


2209 


005710 


005067 


172032 






CLR 


2210 










• 


URTlCK 


2211 


005714 


007337 








.WORD 


2212 


005716 


001122 








.WORD 


2213 


005720 


001015 








BNE 


2214 


005722 


032767 


000040 


1 72022 




BIT 


2215 


005730 


001014 








B^£ 


2216 


005732 


012737 


005532 


001120 




MOV 


2217 


005740 


004767 


173674 






JSR 


2218 


005744 


104000 








ERROR 


2219 


005746 


000056 








.WORD 


2220 


005750 


001325 








.WORD 


2221 














2222 


005752 


000403 








BR 


222i 


005754 








300$: 




2224 


005754 


104000 








ERROR 


2225 


005756 


000057 








.WORD 


2226 


005760 


001325 








.WORD 


2227 












2226 














2229 


005762 


005767 


173134 




3t: 


TST 


2230 


005766 


001015 








BNE 


2231 


005770 


032767 


000020 


171754 




BIT 


2232 


005776 


001014 








BNE 


2233 


006000 


012737 


005532 


001120 




MOV 


2234 


006006 


004767 


173626 






JSR 


2235 


006012 


104000 








ERROR 


2236 


006014 


000060 








.WORD 


2237 
2258 


006016 


001325 








.WORD 


2239 


006020 


000403 








BR 


2240 


006022 








400$: 


2241 


006022 


104000 








ERROR 


2242 


006024 


000061 








.WORD 


2243 


006026 


001325 








.UORO 


2244 












2245 
















OOd030 


005767 


173066 




4$: 


TST 


2247 


006034 


000240 








NOP 


2248 


006036 


106267 


173060 






ASPB 


2249 


006042 


032767 


000020 


171702 




BIT 


2250 


006050 


001010 








BNE 


2251 


006052 


012737 


005532 


001120 




MOV 


2252 


006060 


004 767 


173554 






JSR 



: ADDRESS OF ERROR MESSAGE 

.CACHE SrSTEM ERROR 
I RECOVER FROM ERROR 

J ALL ERRORS TO TRAP TO EMT VECTOR 
(UNIQUE ERROR NUMBER 
(ADDRESS OF ERROR MESSAGE 

{CACHE SYSTEM ERROR 
t ERROR! CACHE WAS NOT RE -ALLOCATED 
J SET FORCE CACHE MISS. 
.•CACHE-1777771 TSTLOC -000000 
J CLR RO 

J CLEAR FORCE CACHE MISS. 

:00 URTLCK INSTRUCTION 

! THESE NEXT TWO WORDS ARE THE URTLCK 

sINSTR. BECAUSE THE ASSEMBLER WAS NOT REAOt 

SiF HIT/MISS REGISTER BIT 5 NOT SET 
(THEN 

jMOVE RETRY ADDRESS TO SOFT RETURN 
:G0 TO SOFT ERROR SUBROUTINE 
(ALL ERRORS TO TRAP TO EMT VECTOR 
(UNIQUE ERROR NUMBER 
(ADDRESS OF ERROR MESSAGE 

(CACHE SYSTEM ERROR 
(RECOVER FROM ERROR 

(ALL ERRORS TO TRAP TO EMT VECTOR 
(UNIQUE ERROR NUMBER 
(ADDRESS OF ERROR MESSAGE 

(CACHE SYSTEM ERROR 
(ERROR! CACHE WAS NOT BYPASSED BY URTlCK . 
(READ TEST LOCATION 

'(IF HIT/MISS REGISTER BIT 4 SET 

* THEN 

(MOVE RETRY ADDRESS TO SOFT RETURN 
(GO TO SOFT ERROR SUBROUTINE 
(ALL ERRORS TO TRAP TO EMT VECTOR 
(UNIQUE ERROR NUMBER 
(ADDRESS OF ERROR MESSAGE 

(CACHE SYSTEM ERROR 
(RECOVER FROM ERROR 

(ALL ERRORS TO TRAP EMT VECTOR 
(UNIQUE ERROR NUMBER 
(ADDRESS OF ERROR MESSAGE 

(CACHE SYSTEM ERROR 
(ERROR! CACHE WAS NOT RE -ALLOCATED 
(READ TEST LOCATION TO ALLOCATE CACHE 
,NOP PAD FOR ASRB HIT /MISS CALC 
(DO ASRB INSTRUCTION 
(IF HIT/MISS REGISTER BIT 4 NOT SET 

* Then 

i move retry addrtss to soft return 
(go to soft error subroutine 



J4 



GLOBAL ARfAS 
KDJllA.MAC 



^253 
2254 
2255 
2256 
2257 
2258 
2259 
2260 
2261 
2262 
2263 
2264 
2265 
2266 
2267 
2268 
2269 
2270 
2271 
2272 
2273 
2274 
2275 
2276 
2277 
2278 
2279 
2280 
2281 
2282 
2283 
2284 
2285 
2286 
2287 
2288 
2289 
2290 
2291 
2292 
2293 
2294 
2295 
2296 
2297 
2296 
2299 
2300 
2301 
2302 
2303 
2304 
2305 
2306 
2307 
2308 



006064 
006066 
006070 

006072 
006076 
006104 
006106 
006114 
006120 
006122 
006124 

006126 
006126 
006132 
006136 
006142 



006146 



HACtII 30AC1052) 
03 -APR 84 11:36 

104000 
000062 
001325 



04 APR 84 

T16 
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TEST MULTIPROCESSING INSTRUCTIONS 



SEQ O048 



005767 
032767 
001410 
012737 
004767 
104000 
000063 
001325 



005037 
005037 
005037 
000167 



173024 
000010 

005532 
175520 



177744 
177766 
001116 
000000 



171646 
001120 



5S: 



6*: 



ERROR 
.WORD 
.WORD 

TST 
BIT 
BEQ 

nov 

JSR 
ERROR 
.WORD 
.WORD 



CLR 
CLR 
CLR 



62 

ERRMSG 
TSTLOC 

«BIT03. MITMIS 
6S 

•TST16»4.8«S0*"TRE 
PC.APTSFT 

63 

ERRMSG 



8«nSER 
S«CPEREG 
MSOFTER 
TST17 



J ALL ERRORS TO TRAP TO EMT VECTOR 

i UNIQUE ERROR NUMBER 

J ADDRESS OF ERROR MESSAGE 

I CACHE SrSTEM ERROR 
I READ TEST LOCATION 
I IF MIT/MISS REGISTER BIT 3 SET 
I THEN 

J MOVE RETRY ADDRESS TO SOFT RETURN 

I GO TO SOFT ERROR SUBROUTINE 

I ALL ERRORS TO TRAP TO EMT VECTOR 

s UNIQUE ERROR NUMBER 

s ADDRESS OF ERROR MESSAGE 

(CACHE SYSTEM ERROR 

(CLEAR THE MEM SYS ERROR REG 

(CLEAR THE CPU ERROR REGISTER 

(CLEAR THE SOFT ERROR COUNT 

(JUMP OVER DATA TABLES OR SUBROUTINES 

(TO NEXT TEST 



CTST21! 



♦TEST 17 



TEST CACHE DATA RAMS 



DATA STORE RAM TESTS - THERE ARE TWO TESTS FOR THE DATA STORE RAM. 
THE FIRST TEST UILL BE A NO DUAL ADDRESSING TEST AND THE SECOND 
TEST UILL BE A DATA RELIABILITY TEST. THE NO DUAL ADORE3SI^4G TEST 
iUILL FIRST WRITE EACH UCRO OF THE CACHE RAM WITH ITS WORD ADDRESS 
I AND VERIFY THE CONTENTS WITH A READ OF EACH ADDRESS. THEN EACH 
sBYTE WILL BE WRITTEN WITH ITS ADDRESS AND CHECKED. THE DATA 
{RELIABILITY TEST THAT WILL BE USED IS A TEST CALLED MOVING INVERSIONS. 



iBGNTST 1 

(SETUP MMU REGISTERS TO HAVE BYPASS ON KERNAL SPACE AND NO 
( BYPASS ON USER SPACE 

(LET PS EQUAL KERNAL FOR CURRENT MODE AND USER FOR PREVIOUS 
t MODE 
{ENABLE MMU 

(GET FIRST ADDRESS OF 4K WORD DATA BUFFER 

t CLEAR DATA TO BE WRITTEN 

(SET DIAGNOSTIC BIT (BIT<1>) IN CCR 

(DO UNTIL DATA TO BE WRITTEN EQUALS 20000(8) 

{. WRITE DATA TO ADDRESS 

I . ADO 2 TO ADDRESS 

( . ADD 2 TO DATA TO BE WRITTEN 

IEM300 

(SAVE CONTENTS OF VECTOR 114 

(LET VECTOR 114 POINT TO DATA STORE PARITY ABORT ROUTINE 
(GET FIRST ADDRESS OF 4K WORD DATA BUFFER 
(CLEAR EXPECTED DATA 

;D0 UNTIL EXPECTED DATA EQUALS 20000(8) 
READ ADDRESS 

IF RECEIVED DATA NE EXPECTED DATA THEN 
ERROR IN CACHE SYSTEM 



<4 



GLOeAt ARtAS 
KOJllA.HAC 

^509 
2310 
2311 
2312 
2513 
2314 
2315 
2316 
2317 
2316 
2319 
2320 
2321 
2322 
2323 
2324 
2325 
2326 
2327 
2326 
2329 
2330 
2331 
2332 
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T17 
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TEST CACHE DATA RAMS 



SEQ 004 



I . ENOIF 

t. AOO 2 TO EXPECTED DATA 

: . ADD 2 TO ADDRESS 

sENODO 

jGET FIRST ADDRESS OF 8K BYTE DATA BUFFER 

t CLEAR DATA TO BE WRITTEN 

sOO UNTIL ALL BYTES CHECKED 

i. WRITE DATA TO ADDRESS 

ADD 1 TO ADDRESS 
ADD 1 TO DATA TO BE WRITTEN 

ENDDO 

GET FIRST ADDRESS OF 8K BYTE DATA BUFFER 
CLEAR EXPECTED DATA 

DO UNTIL EXPECTED DATA EQUALS 20000(8) 
READ ADDRESS 

IF RECEIVED DATA NE EXPECTED DATA THEN 
ERROR IN CACHE SYSTEM 
ENDIF 
ADD 1 
ADD 1 

: ENDDO 

{RESTORE VECTOR 114 
ENOTST 



TO EXPECTED DATA 
TO ADDRESS 



2S5S 










TST17: 






2334 


006146 












2335 


006146 


005267 


172652 






INC 


ITESTN 


2336 


006152 


004767 


175254 






JSR 


PC. INITMM 


2337 


006156 


012767 


001600 


164170 




MOV 


#1600. KIPAR6 


2338 


006164 


042767 


000004 


164524 




BIC 


«eiT02.SR5 


2339 


006172 


052757 


000001 


177572 




BIS 


•BIT00.8«SR0 


2340 


006200 


012702 


140000 






MOV 


«140000.R2 


2341 


006204 


005001 








CLR 


Rl 


2342 


006206 


052767 


000002 


171552 




BIS 


•eiTOl.CCR 


2343 


006214 


020127 


020000 




1$: 


CMP 


Rl. «20000 


2344 


006220 


001404 








BEQ 


2> 


2345 


006222 


010122 








MOV 


Rl. (R2)* 


2346 


006224 


062701 


000002 






ADD 


♦2. Rl 


2347 


006250 


000771 








BR 


11 


2348 


006252 


015767 


000114 


172570 


2>: 


MOV 


Ml 14. SLOCOO 


2349 


006240 


012757 


001650 


000114 




MOV 


«RAMPAR.8«114 


2350 


006246 


042767 


000002 


171472 




BIC 


•BITOl.CCR 


2351 














2352 


006254 


012702 


140000 






MOV 


«140000.R2 


2353 


006260 


005001 








CLR 


Rl 


2354 


006262 


020127 


020000 




3$: 


CMP 


Rl. «20000 


2355 


006266 


001450 








BEQ 


5» 


2356 


006270 


005712 








TST 


(R2) 


2357 


006272 


052757 


000010 


177752 




BIT 


«eiT03,8«HlTMIS 


2356 


006500 


001010 








BNE 


4$ 


2359 


006502 


012757 


006152 


001120 




MOV 


»TST17.4.a#S0FTRE 


2560 


006510 


004767 


173524 






JSR 


PC.APTSFT 


2561 














2562 
















2565 


006314 


104000 








ERROR 




2564 


006316 


000064 








.WORD 


64 



INCREMENT TEST NUMBER 

SETUP MMU REGISTERS/FORCE CACHE BYPASS PAGES 0 
LET PAR6 MAP TO ADDRESS 160000 
DISABLE KERNEL D SPACE. 
TURN ON MEMORY MANAGEMENT 
GET FIRST ADDRESS OF 4K WORD BUFFER 
INIT DATA TO BE WRITTEN 
SET DIAGNOSTIC BIT 
DO UNTIL ALL ADDRESSES WRITTEN 
IF DONE GO CHECK DATA 
WRITE DATA TO ADDRESS 
UPDATE DATA BY 2 (WORD BOUNOARY) 
t ENDDO 

J SAVE CONTENTS OF VECTOR 114 
LET VECTOR 114 POINT TO ABORT ROUTINE 
CLEAR DIAGNOSTIC BIT. ALL FURTHER 
REFERENCES TO PAGE 6 SHOULD BE CACHED. 
GET FIRST ADDRESS OF 4K WORD BUFFER 
INIT DATA TO BE CHECKED 

1 00 UNTIL ALL ADDRESSES CHECKED 

;IF DONE GO DO BYTES 

I CHECK THAT CACHE WAS 

I ALLOCATED 

J SHOULD HAVE HIT 

J MOVE RETRY ADDRESS TO SOFT RETURN 
iGO TO SOFT ERROR SUBROUTINE 

jCACHE system ERROR 

{EXPECTED A HIT I GOT A MISS 
jALL ERRORS TO TRAP TO EMT VECTOR 
: UNIQUE ERROR NUMBER 



GLOBAL ARIAS 
KOJllA.MAC 
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2365 


006320 


001325 




2366 


006322 


012267 


172510 


2367 


006326 


020167 


172504 


2366 


006332 


001403 




2369 


006334 


104000 




2370 


006336 


000065 




2371 


006340 


001325 




2372 








2373 


006342 


062701 


000002 


2374 


006346 


000745 




2375 








2376 








2377 








2378 








2379 








2360 


006350 


052737 


000002 


2361 


006356 


012702 


140000 


2362 


006362 


005001 




2363 


006364 


020127 


020000 


2364 


006370 


001404 




2365 


006372 


110122 




2366 


006374 


062701 


000001 


2367 


006400 


000771 




2366 


006402 


012702 


140000 


2369 


006406 


005001 




2390 








2391 


006410 


105712 




2392 


006412 


032737 


000010 


2393 


006420 


001010 




2394 


006422 


012737 


006152 


2395 


006430 


004767 


173204 


2396 






2397 








2398 


006434 


104000 




2399 


006436 


000066 




2400 


006440 


001325 




2401 


006442 


112267 


172370 


2402 


006446 


120167 


172364 


2403 


006452 


001410 




2404 


006454 


012737 


006152 


2405 


006462 


004767 


173152 


2406 


006466 


104000 




2407 


006470 


000067 




2406 


006472 


001325 




2409 






2410 


006474 


005201 




2411 


006476 


020127 


020000 


2412 


006502 


001342 




2413 






2414 


006504 


005067 


171236 


2415 


006510 


005067 


171056 


2416 


006514 


016737 


172310 


2417 


006522 


005037 


177744 


2416 


006526 


005037 


177766 


2419 


006532 


005037 


001116 


2420 


006536 


000167 


000000 



04 APR 84 

T17 



4$; 



10:38 PAGE 50 

TEST CACHE DATA RAMS 



SEQ 0050 



loot; 



6t: 



It: 



8t: 



101 1: 



9t: 



lOti 



.WORD 

MOV 

CMP 

BEQ 

ERROR 

.WORD 

.WORD 

ADO 
BR 



ERRMSG 
(R2)*. 
Rl. 
100$ 

65 

ERRMSG 

«2.R1 
it 



RECDAT 
RECDAT 



} ADDRESS OF ERROR MESSAGE 
iREAD TEST LOCATION 

I IF RECEIVED DATA NOT EQUAL TO EXPECTED 
J THEN 

:ALL ERRORS TO TRAP TO EMi VECTOR 

s UNIQUE ERROR NUMBER 

I ADDRESS OF ERROR MESSAGE 

J CACHE SYSTEM ERROR 
;UPDATE EXPECTED DATA Bt 2 
lENOOO 



;***NOU CHECK BYTES**** 

iSINCE CACHE IS ALREADY ALLOCATED; WRITE BYTES WILL HIT 
I AND WRITE THROUGH CACHE TO MEMORY. 



BIS «BIT01.S«CCR 

MOV «140000,R2 

CLR Rl 

CMP Rl. '*;oooo 

BEQ It 

MOVB Rl, (R2)* 

ADD «1, Rl 

BR 6t 

MOV «140000.R2 

CLR Rl 

TSTB (R2) 

BIT ♦BIT03.aOHITMIS 

BNE 101 t 

MOV «TST17»4,8#S0FTRE 

JSR PC.APTSFT 



ERROR 

.WORD 66 

.UORO ERRMSG 

MOVB (R2)». RECDAT 

CMPB Rl. RECDAT 

BEQ 9$ 

MOV ♦TST17»4.8*S0FTRE 

JSR PC.APTSFT 

ERROR 

.WORD 67 

. WORD ERRMSG 

INC Rl 

CMP Rl. #20000 

BNE 8$ 

CLR CCR 

CLR SRO 

MOV SLOCOO. S«114 

CLR 9«MSER 

CLR 8«CPEREG 

CLR 8«S0rTER 

JMP TST20 



SET DIAGNOSTIC MODE IN CCR 

GET FIRST ADDRESS OF 4K WORD BUFFER 

INIT DATA TO BE WRITTEN 

DO UNTIL ALL ADDRESSES WRITTEN 

IF DONE GO CHECK DATA 

WRITE DATA TO ADDRESS 

UPDATE DATA BY 1 (BYTE BOUNDARY) 

ENDDO 

GET FIRST ADDRESS OF 4K WORD BUFFER 
INIT DATA TO BE CHECKED 
00 UNTIL ALL ADDRESSES CHECKED 
CHECK THAT CACHE WAS ALLOCATED 
SHOULD BE 

A HIT 

MOVE RETRY ADDRESS TO SOFT RETURN 

GO TO SOFT ERROR SUBROUTINE 
; CACHE SYSTEM ERROR 
jEXPECTED A HIT; GOT A MISS 

ALL ERRORS TO TRAP TO EMT VECTOR 

UNIQUE ERROR NUMBER 

ADDRESS OF ERROR MESSAGE 

READ TEST LOCATION 

IF RECIEVED DATA NOT EQUAL TO EXPECTED 
THEN 

MOVE RETRY ADDRESS TO SOFT RETURN 

GO TO SOFT ERROR SUBROUTINE 

ALL ERRORS TO TRAP TO EMT VECTOR 

UNIQUE ERROR NUMBER 

ADDRESS OF ERROR MESSAGE 

; CACHE SYSTEM ERROR 
UPDATE EXPECTED DATA By 1 
IF ALL ADDRESS HAVE NOT BEEN TESTED 
THEN GET NEXT ADDRESS 
ELSE EXIT TEST 
CLEAR THE CCR 
TURN OFF MMU 
RESTORE VECTOR 114 
CLEAR TMF MEM SYS ERROR REG 
CLEAR Tf CPU ERROR REGISTER 
CLEAR T . SOFT ERROR COUNT 
JUMP OVtf, DATA TABLES OR SLeROUTINfS 
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2421 
2422 

2423 006542 

2424 

2425 

2426 

2427 

2426 

2429 

2430 

2431 

2432 

2433 

2454 

2435 

2436 

3437 

2436 

2439 

2440 

2441 

2442 

2443 

2444 

2445 

2446 

2447 

2446 

2449 

2450 

2451 

2452 

2453 

2454 

2455 

2456 

2457 

2458 

2459 

2460 

2461 

2462 

2463 

2464 

2465 

2466 

2467 

2466 

2469 

2470 

2471 

2472 

2473 

2474 

2475 

2476 



M4 

APR 84 10:38 PAGE 51 SEO 0051 

T17 TEST CACHE DATA RAMS 

;T0 NEXT TEST 

CTST22: 

UtEST 20 CACHE DATA RAM DATA RELIABILITY TEST * **** 

;M0VING INVERSIONS TEST FOR DATA RAMS - THE TEST IS STARTED AFTER LOADING THE 
;RAM STORE WITH O'S. EACH ADDRESS IS READ AND VERIFIED TO BE ALL O'S. THEN A 
J I IS SUBSTITUTED IN A BIT POSITION AND THE fCU WORD IS WRITTEN, NEXT THE 
lAODRESS IS READ TO VERIFY ThC NEW CONTENTS. THIS IS REPEATED FOR EACH BIT OF 
iTME WORD LEAVING THE ARRAY FILED WITH I'S. THE WHOLE PROCESS IS REPEATED 
jPLUGGING IN O'S TO THE I'S AND REPEATED TWICE MORE ADDRESSING IN THE DOWNWARD 
iDIRECTION. FINALLY EVERYTHING IS REPEATED FOR EACH BIT POSITION BEING THE 
;LSB. TO SAVE TIME AND KNOWING THE LAYOUT OF THE RAM CHIPS INSTEAD OF DOING 
sONLY A SINGLE BIT AT A TIME EVERY FOURTH BIT WILL BE DONE CONCURRENTLY. 

(BGNTST 

: SETUP AND ENABLE MMU 

(SETUP CCR TO ABORT PARITY ERRORS 

: CLEAR CACHE 

I LET FUOSEQ - *1 

{LET ADDLSB - •! 

(DO UNTIL ADDLSB EQ *0 

LET CURDAT - 0 

LET RITEDA - #1 

LET NEWDAT > «1 
:. IF FWDSEQ - «1 THEN 

(. LET FSTADD EQUAL FIRST ADDRESS OF 8K BYTE BUFFER 

t. LET LASTAO EQUAL LAST ADDRESS OF 8K BYTE BUFFER 

: . ELSE 

I. LET FSTAOD EQUAL LAST ADDRESS OF 8K BYTE BUFFER 

i. LET LASTAD EQUAL FIRST ADDRESS OF 8K BYTE BUFFER 

: . ENOIF 

I. LET CURAOO - FSTADD 

t. LET OCOUNT > 90 

t. SAVE CONTENTS OF VECTOR 114 

LET VECTOR 114 POINT TO DATA STORE PARITY ABORT ROUTINE 
t. DO UNTIL OCOUNT EQ «10 

:. LET RECDAT - SCURAOO 

:. IF RECDAT NE CURDAT THEN 

I. ERROR IN CACHE SYSTEM 

> . ENDIF 

IF DCOUNT or «5 THEN 
I. LET 8CURA0D - 8CURA0D CLEARBY RITEDA 

t . . ELSE 

I. LET SCURAOD - SCURADD SETBY RITEDA 

: . ENOIF 

;. LET RECDAT - SCURADD 

IF RECDAT NE NEUDAT THEN 
i. ERROR IN CACHE SYSTEM 

( . ENDIF 

: . IF CURADD EQ LASTAO THEN 

s. IF RITEDA - 0210 THEN 

!. . IF OCOUNT NE 97 THEN 

(. . LET CURDAT • 9177 

i. . . LET RITEOA - *21 



N4 
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2494 
2495 
2496 
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2500 
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2503 
2504 
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006542 
006542 
006546 
006554 
006556 
006562 



006566 
006574 
006602 
006610 
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T20 



10 



-11 



PAGE 52 

C^« DATA RAM DATA RELIABILITY TEST 



SEQ 0052 



005267 172236 

032777 OOlOOO 172272 

001002 

000167 000454 

004767 172624 



012767 000200 163560 

052737 000001 177572 

052767 000200 171136 

012700 140000 



ELSE 



ENOIF 



LET ^4EUDAT • «356 



LET CORDAT • NEWOAT 

ROTATE RITEDA 

ir DCOUNT GT 03 THEN 

LET NEUDAT • NEWOAT CLEAREDBr RITEDA 

ELSE 

LET NEUDAT - NEWOAT SETBr RITEDA 

ENOIF 



ELSE 



ENOIF 

INCREMENT OCOUNT 
LET CURADD • FSTADD 



IF FUOSEQ ■ #1 THEN 

LET CURADD - CURADD 
IF CARRY THEN 

LET CURADD • 

ENOIF 



ELSE 



ENOIF 

ENOIF 

ENOOO 

IF FWOSEQ EQ «1 THEN 
LET FWOSEQ 

ELSE 

ROTATE ADDLSB 
LET FWOSEQ - #1 

ENOIF 
ENODO 

RESTORE VECTOR 114 
ENOTST 

RO-CURAOO (CURRENT ADDRESS) 
Rl-UORKING REGISTER 
R2-ReC0AT (RECEIVED DATA) 
RS-RITEDA (DATA TO BE WRITTEN) 
R4-NEU0AT (EXPECTED DATA) 
R5-CUR0AT (CURRENT DATA) 



LET CURADD • CURADD 

IF CARRY THEN 

LET CURADD • 
LET CURADD > 

ENOIF 



> ADDLSB 
CURADD 

- ADDLSB 

LASTAD 
CURADD 



♦ #1 



ADDLSB 



TST20: 



100*: 



INC 
BIT 
BNE 
JMP 
JSR 



MOV 
BIS 
BIS 
MOV 



ITESTN 
«6IT09.9SWR 

loot 

EXTST 

PC. INITMM 



«200.KIPAR6 

«eiToo.a«SRo 

♦200. CCR 
«140000,R0 



{INCREMENT TEST NUMBER 

:ARE DATA RELIABILITY TESTS SELECTED? 

;IF BIT09 IN SWR - Ij 00 RELIABILITY TEST 

;ELSE SKIP IT 

: SETUP MEMORY MANAGEMENT 

{PAGES 0 THRU 5 BYPASS CACHE 

{PAGES 6 AND 7 DON'T BYPASS CACHE 

{LET KIPAR6 RE-LOCATE TO 20000-57777 

{TURN ON MMU 

{ENABLE PARITY ABORTS 



b ) 
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KOJllA.MAC 05-APR 84 11:56 ^20 CACHE DATA RAM DATA RELIABILITY 



2553 


006614 


012701 


010000 






HOV 


•lOOOO. 


Rl 


2554 


006620 


005020 






1$ : 


CLR 


(HO). 




2555 


006622 


077102 








SOB 


Rl. 


1* 


2556 


006624 


012767 


000001 


172254 




liOV 


♦ 1. 


FWOSEQ 


2557 


006632 


012767 


000001 


172250 




MOV 


• I. 


AODLSO 


2556 


006640 


013767 


000114 


172162 




MOV 


M114. 


SLOCOO 


2559 


006646 


012757 


001650 


000114 




MOV 


•RAHPAR.S«lt4 


2540 


006654 


005002 








CLR 


R2 




2541 


006656 


005005 






TSTLUP: 


CLR 


R5 




2542 


006660 


012705 


000021 






HOV 


•21. 


R5 


2545 


006664 


012704 


000021 






HOV 


•21. 


R4 


2544 


006670 


005767 


172172 






TST 


ruOSEQ 




2545 


006674 


001407 








BEQ 


1* 




2546 


006676 


012767 


140000 


172174 




HOV 


•140000. FSTADO 


2547 


006704 


012767 


157777 


172170 




HOV 


•157777. LSTAOD 


2548 


006712 


000406 








BR 


2t 




2549 


006714 


012767 


157777 


172156 


1<: 


HOV 


•157777. FSTADO 


2550 


006722 


012767 


140000 


172152 




HOV 


•140000. LSTAOD 


2551 


006750 


016700 


172144 




2t: 


nov 


FSTAOD, 


RO 


2552 


006754 


005067 


172114 






CLR 


DCOUNT 




2553 


006740 


022767 


000010 


172106 


BGNTLP: 


CHP 


•6. . 

ENOTLP 


DCOUNT 


2554 


006746 


001511 








BEQ 




2555 


006750 


111002 








HOVB 


(RO). P2 




2556 


006752 


120205 








CHPB 


R2. 


R5 


2557 


006754 


001405 








BEQ 


It 




2558 


006756 


104000 








ERROR 






2559 


006760 


000070 








.UORO 


70 




2560 


006762 


001525 








.UORD 


ERRHSG 




2561 


















2562 


006764 


022767 


000005 


172062 


It : 


CHP 


•5. 


DCOUNT 


2563 


006772 


002002 








BGE 


2t 




2564 


006774 


140510 








BICB 


R5. 


(RO) 


2565 


006776 


000401 








BR 


5t 




2566 


007000 


150510 






21 : 


BIS6 


R5. 


(RO) 


2567 


007002 


111002 






St : 


HOVB 


CR0).R2 




2568 


007004 


120204 








CHPB 


R2. 


R4 


2569 


007006 


001405 








BEQ 


4t 




2570 


007010 


104000 








ERROR 






2571 


007012 


000071 








.UORO 


71 




2572 


007014 


001525 








.UORO 


ERRHSU 




2573 


















2574 


007016 


020067 


172060 




4« : 


CHP 


RO. 


LSTAOD 


2575 


007022 


001054 








BNE 


6t 




2576 


007024 


022705 


000210 






CHP 


•210. 


R5 


2577 


007030 


001015 








BNE 


51 




2578 


007032 


022767 


000007 


1 72014 




CHP 




DCOUNT 


2579 


007040 


001420 








BEQ 


7t 




2580 


007042 


012705 


000577 






HOV 


•577. 


R5 


2581 


007046 


012705 


000021 






HOV 


•21. 


R5 


2582 


007052 


012704 


000556 






HOV 


•556. 


R4 


2585 


007056 


000411 








BR 


7t 




2584 


007060 


010405 






5t: 


HOV 


R4. 


R5 


2585 


007062 


006105 








ROL 


R3 




2586 


007064 


022767 


000005 


171762 




CMP 


•5. 


DCOUNT 


2587 


007072 


002002 








BGE 


6t 




2588 


007074 


04C504 








BIC 


R5. 


R4 



•clearing cache 

fnit upward addressing indicator 

init lsb and do loop until shifted out 

save contents of vector 114 

let vector point to abort routine 

init recoat. 

init current data 

init data to be written 

init expected data 

if addressing upward 

Then 

let first address equal lowest value 
let last address equal highest value 

ELSE 

LET FIRST ADDRESS EQUAL HIGHEST VALUE 
LET LAST ADDRESS EQUAL LOWEST VALUE 
LET CURRENT ADDRESS EQUAL FIRST ADDRESS 
INIT LOOP COUNTER 

DO LOOP 8 TIMES (4 TIHES TO WRITE 1 S 
AND 4 TIMES TO WRITE BACK OS) 
[FIRST READ LOCATION 

tIF RECIEVEO DATA NOT EQUAL TO EXPECTED 
lOATA THEN 

I ALL ERRORS TO I RAP TO EMT VECTOR 

[UNIQUE ERROR NUMBER 

t ADDRESS OF ERROR MESSAGE 

I CACHE SYSTEM ERROR 
I IF LOOP COUNT GREATER THAN 5 
(THEN 

iCLEAR TEST DATA By WRITE DATA 
I ELSE 

iSET TEST DATA By URITE DATA 
lOO READ AFTER WRITE 

I IF RECIEVEO DATA NOT EQUAL TO EXPECTED 
lOATA THEN 

I ALL ERRORS TO TRAP TO EHT VECTOR 

I UNIQUE ERROR NUHBER 

I ADDRESS OF ERROR MESSAGE 

I CACHE SYSTEM ERROR 
I IF CURRENT ADDRESS EQUALS LAST ADDRESS 
I THEN 

lANO IF WRITE PATTERN EQUALS LAST 
(PATTERN THEN 

I AND TEST IS NOT ON LAST LOOP 
I THEN 

iSET UP TO WRITE OS 



ELSE 

SET UP FOR NEXT DATA PATTERN 

AND IF DOWNWARD ADDRESSING 
THEN 

LET NEW DATA BE CLEARED 6* WRITE DATA 



MAC 



04 APR 



A RAM DATA REl IABILITt TEST 



SEQ O054 





/\A 






£ _J TV 


w « & w 


^A4 




fc ' 1 


007102 


005P67 


171 746 








1 71 766 




nrt7i 1 p 








nn7i 1 A 




171 74^ 




007IP0 

W « 


00141P 






0071 PP 


Vww ' W 


1 71 74P 






npp7AA 


160000 

&v WW 












0071 34 


\f%^7M 

• W 


OPOOOO 

VC WW 


P600 


007140 




000001 

WVW A 


P601 


007144 


VW^ A A 




c wvc 


007146 


166 700 

Aw * W 


171716 




007152 


OPP 700 


140000 

A ^ WW 


2604 


007156 








007160 


062700 


02OO0O 

VC WW 




007164 


162 70O 

AwC f W 


000001 

VWW A 


2607 


0O7170 


000663 






0O7172 


OOS767 


1 71670 

A ' Aw • V 




0O7176 

W ■ A * W 


001404 






0O72OO 


00M67 


171662 

A • AwwK 


P611 


007204 


000167 

VW Aw • 


177446 




007P10 


012767 


OOOOOl 

VWW A 


261 S 


W I C Aw 


006167 


171646 


2614 


007PPP 


OPP767 


02O0OO 


26 IS 


00 72 so 


001402 




2616 


007PXP 

W r C^C 


000167 


1 774PO 






ULD • O r 


1 71 








1 7n476 


2614 




AOSn67 


1 70T16 
X « VJXw 


P6PO 






1 777A4 




VW « C w V 




1 777AA 




nA7PA4 
W t CO* 




AAI 1 1 4> 




A07P 7n 




(WWW) 










262S 








2626 


Oft7P 74 






2627 








262(1 








2629 








2610 








26S1 








26 S2 








26SS 








2634 








26 








2636 








2637 








2638 








2639 








2640 








2641 








2642 








2643 








2644 











OD 


r f 


. CI cc 




W A 


R5 R4 






INC 

AlW 










rsTann Ro 










. PI CP 


At • 


TCT 




. TP Af)flDC C C r klf* 1 BLJAOn 
1 Lr nUUHC^blNu UPWARD 






9$ 






ADO 


AODLSB RO 


irAinjI ATP NFXT MTH^tfR annOPCQ 




CMP 


#160000 RO 

w A WWW t "V 


1 TP riJRRPMT AnrtRPCC MAQ RPPM TurOPACPn 




BGT 

WW 1 


lot 

A V w 








4PDOOO RO 

VCWW f r%V 


■ Dni 1 AnnopcQ dapi/ 




ADD 

"WW 


41 RO 

V A t V 






BR 


10 1 


lELSE 


91* 


SUB 


ADOLSB RO 


■ TAl ril ATP MFXT 1 nuPR artDRPCQ 




CMP 


^140000 RO 

A" VWV f " V 


I TP rmRPNT AnnRPCC haq rppm ncroPACPn 

1 X~ Ww^f'Cnl 1 nUI^~C33 n«3 DCCn U&LNI1H3CU 




BLE 


10* 






ADO 


#20000 RO 

VVW • r%V 


1 nu^w nwnc3 3 D~^*^ 




SUB 


#1 RO 




lOt • 


BR 


BGNTLP 




ENDTLP* 


TST 








BEQ 




; THEN 




CLH 


EUDSEQ 


tDO ADDRESSING DQUNUARD 




JMP 

w* 


TSTLUP 




11 ' 

A V « 


MOV 


#1 ruDSEO 


i<^FT ADDRF^<;TNn IJPUARO TMnTTATOR 




ROL 


n WW Jw 


ilJpnATF 1 ^R TO NF^CT Pn^TTTOia 

f \/rV^ < W ^ JD ■ w I^W A 1 r W3 A 1 A 




CMP 


4POOOO ADDl ^ 

VCVWV f '^WW Jw 


tUP OM Y nn A*; FAR A^ 1 0OOO 




BEQ 


EXTST 






JMP 


TSTLUP 




tXTST; 


MOV 


SLOCOO. S4114 


jRESTORE VECTOR 114 




CLR 


CCR 


jINiT CCR FOR EXIT 




CLR 


SRO 


iTURN OFF MMU 




CLR 


84MSER 


i CLEAR THE MEM SYS ERROR REG 




CLR 


MCPEREG 


jCLEAR THE CPU ERROR REGISTER 




CLR 


MSOFTER 


; CLEAR THE SOFT ERROR COUNT 




JMP 


TST21 


tJUMP OVER DATA TABLES OR SUBROUTINES 



CTST23: 

iilEST 21 
II' 



TO NEXT TEST 



TAG RAM DUAL ADDRESS TEST 



I TAG STORE RAH TESTS - THERE ARE TUO TESTS FOR THE TAG STORE RAMS. THE FIRST 
I TEST IS AN ADDRESSING TEST TO ENSURE NO DUAL ADDRESSING OF THE TAG STORE. 
I THE SECOND TEST IS A "GALLOPING ONES AND ZEROS" TEST THAT CHECKS THE DATA 
I REL IABILITT OF THE TAG RAMS. 

!0UAL ADDRESSING TEST - THIS WILL BE DONE BY FIRST FLUSHING THE CACHE. THEN 
I THE FIRST 256(10) LOCATIONS (BLOCK 0) WILL BE URITTEN WITH ADDRESSES THAT 
I WILL CAUSE A INCREMENTING PATTERN TO BE STORED IN THOSE LOCATIONS OF THE TAG 
{STORE RAM. NEXT THE ENTIRE 4K ADDRESS RANGE WILL BE READ. THE HIT/MISS 
iREGISTER SHOULD ONLY REPORT HITS ON THE AJORESSES THAT UERE ALLOCATED. THIS 
{PROCESS WILL BE REPEATED FQR EACH BLOCK FOR A TOTAL OF 16 (101 BLOCKS. 

I INITIALIZE LOU ADDRESS 
(SETUP AND ENABLE MMU 
{INITIALIZE BLOCK COUNTER 



fehS??H.^)S^'*" 05^SW^A4^¥^:r-^^ '*'"'t!? ^^'fSc AOO«ESS TEST 



^645 


iOO K»*JIL ALL BLOCKS TESTED (16 TIMES) 


J646 


1 , 


TLOSH CACHE AND SET DIAGMOSTIC BIT 


264 7 




LET CURRENT ADDRESS ■ LOU ADDRESS 


2646 


■ « 


INITIALIZE ALLOCATION COUNTER 


2649 




00 UNTIL ENTIRE BLOCK M.LOCATED C256 TIMES) 


2650 




IF CURRENT ADDRESS < 32K TMEN 


2651 




READ CURRENT ADDRESS 


2652 


. * 


ELSE 


2653 




URITE CURRENT ADDRESS 


2654 




ENOIF 


2655 




UPDATE CURRENT ADDRESS (ALSO ADD 200 TO PAR) 


2656 




ENDDO 


2657 


. [ 


INITIALIZE GOOD ADDRESS 


2656 


. ] 


INITIALIZE CURRENT ADDRESS 


2659 




INITIALIZE LOCATION COUNTER 


2660 


, 1 


SAVE CONTENTS Of VECTOR 114 


2661 




LET VECTOR 114 POINT TO TAG STORE PARITY ABORT ROUTINE 


2662 


! 1 


00 UNTIL ALL LOCATIONS CHECKED (256 TIMES) 


2663 


, \ 


INITIALIZE CHECK COUNTER 


2664 




00 UNTIL ADDRESS IN EACH BLOCK CHECKED 


2665 


J * 


READ CURRENT ADDRESS 


2666 




IF HIT THEN 


2667 


. ] 


IF CURRENT ADDRESS NE GOOD ADDRESS THEN 


2666 




ERROR IN CACHE SYSTEM 


2669 




ENOIF 


2670 




ELSE 


2671 




IF CURRENT ADDRESS EQUAL GOOD ADDRESS THEN 


2672 


. * 


ERROR IN CACHE SYSTEM 


2673 




ENOIF 


2674 




ENDIF 


2675 




UPDATE GOOD ADDRESS (ADD «2) 


2676 




UPDATE CURRENT ADDRESS 


2677 




ENDDO 


2678 




UPDATE LOW ADDRESS (ADD «2000) 


2679 




ENDDO 


2660 


Ienooo 




2681 


:0ISA8LE MMU 


2682 


iRESTORE VECTOR 114 


2663 


lENDTST 




2664 






2665 


|R3-G000A0 


2686 


tR5-CURA0D 


2667 






2666 007274 


TST21: 





2669 


007274 


005267 


171504 






INC 


ITESTN 


(INCREMENT TEST NUMBER 


2690 


007500 


032777 


000400 


171540 




BIT 


«BIT08.8SUR 


lis THIS AN 16 BIT SYSTEM? 


2691 


007306 


001402 








BEQ 


300 » 


tOO THIS TEST IF IT ISN' T 


2692 


007310 


000167 


000404 






JMP 


10* 


lELSE: JUMP TO END OF TEST 


2693 


007314 


012767 


140000 


171564 


500«: 


MOV 


«14OO0O.L0UA0D 


{INITIALIZE LOU ADDRESS (USE PAR6) 


2694 


007322 


004767 


172064 






JSR 


PC. INITMM 


t INITIALIZE MMU 


2695 


007326 


012767 


000020 


163162 




MOV 


•20,SR3 


lENABLE 22 BIT ADDRESSING 


2696 


007334 


052737 


000001 


177572 




BIS 


«BIT00.S«SR0 


{ENABLE MMU 


2697 


007542 


012767 


177760 


171510 




MOV 


»-16.. LOOPIN 
•20O0.S«KIPAR6 


tOO UNTIL ALL BLOCKS TESTfO 


2698 


007350 


012737 


002000 


172354 


1»: 


MOV 


iSET KIPAR6 RELOCATION CON T ANT TO PACE 


2699 


007356 


012757 


000402 


177746 




MOV 


•402. 8«CCR 


; FLUSH CACHE AND SET 01 AC I IT 


2700 


007364 


016 705 


171516 






MOV 


LOUAOD. R5 


tCET FIRST ADDRESS IN CURRE' T BLOCK 



GtOBAL ARMS 
KOJllA.HAC 



2702 
2705 
2704 
2705 
2706 
2707 
2708 
2709 
2710 
2711 
2712 
2715 
2714 
2715 
2716 
2717 
2716 
2719 
2720 
2721 
2722 
2723 
2724 
2725 
2 ■'26 
2V?7 
272^ 
2729 
Z/sC 
2731 
2732 
2753 
2754 
2755 
2756 
2757 
2758 
2759 
2740 
2741 
2742 
2743 
2744 
2745 
2746 
2747 
2748 
2749 
2750 
2751 
2752 
2755 
2754 
2755 
2756 



007370 
007576 
007400 
007404 
007412 
007416 



MACUl 50A(1052 ) 04 
03 APR 84 11:36 

012767 177400 171460 
005015 

062705 000002 

062737 000200 172354 

005267 171440 
001567 



007420 
007424 
007450 
007456 
007444 

007452 
007460 
007466 
007470 



007474 
00^500 
007502 



007504 
007510 

007514 
007516 
007522 
007524 
007526 
007552 

007554 
007536 
007540 
007546 



00V552 
007554 
007556 
007560 
007562 
007564 
007572 



016705 
012705 
012757 
015767 
012757 

012767 
012767 
005015 
015702 



012704 
005104 
074504 



042704 
022704 

001404 
032702 
001416 
000405 
032702 
001412 

020503 
001422 
012737 
004767 



104000 
000072 
001325 
020505 
001010 
012757 
004767 



171462 
140000 
002000 
000114 
001650 

177400 
177761 

177752 



007470 



177701 
000076 



000004 
000010 



007300 
172066 



APR 84 

T21 



3»: 
4$: 



10 



58 PAGE 56 

Tag rah dual 



5 



address test 



SEQ 0056 



MOV 
CLR 
ADO 
ADO 
INC 
BNE 



•-256. . 

CR5) 

•2. 

•200. 

ALLCTR 

3* 



ALLCTR 
R5 

8«KIPAR6 



172554 
171564 
000114 

171576 
171366 



it addresses have now been ALLOCATED. 
I {THERE WAS NO DUAL ADDRESSING. 



MOV LOUADD. R5 

MOV #140000. R5 

MOV »2000.8*KIPAR6 

MOV 8«114. SLOCOO 

MOV •RAHPAR.a«114 

MOV 0 256., ALLCTR 

MOV •15.. OCOUNT 

CLR (R5) 

MOV B#HITMIS.R2 



5$: 
61: 
205 »: 



I DO UNTIL ALL ADDRESSES ALLOCATED 

IWRITE CURRENT ADDRESS 

I UPDATE CURRENT ADDRESS 

I ADD 200 TO KIPAR6 TO INC TAG CONTENTS 

I IF ALL ADDRESSES ALLOCATED 

lENOOO 

NEXT UE'LL CHECK THAT 



(INITIALIZE GOOD ADDRESS 
iGET FIRST ADDRESS 
J RE SET KIPAR6 
I SAVE VECTOR 

jLET VECTOR POINT TO RAM ABORT ROUTINE 

sDO ALL LOCATIONS CHECKED 

(DO LMTIL ADDRESS IN EACH BLOCK CHECKED 

(URITE R5 

J SAVE THE CONTENTS OF THE HIT/MISS REG 



001120 



007500 
172042 



001120 



I THE FOLLOWING CODE IS TO CHECK FOR EXTRA FETCHES CAUSED BY THE PRE FETCH 

{BUFFER BEING OVER WRITTEN WHEN BITS 1-5 OF THE PREVIOUS WRITE 

I ADDRESS (THE EFFECTIVE ADDRESS OF CLR (R5)) ARE EQUAL TO BITS 1-5 

iOF THE CURRENT INSTRUCTION FETCH ADDRESS. (ADDRESS OF MOV S«HITMIS.R2 INST) 

J THE EXTRA FETCH CAUSES THE MIT MISS REGISTER CONTENTS TO BE SHIFTED. 

iSAVE ADDRESS OF MOVE INST IN R4 
J COMPLIMENT R4 

J IF ANY OF BITS 1 5 IN R5 ARE EQUAL 
J TO ANY OF BITS 1-5 IN R4 THEN THE 
I ADDRESSES WERE NOT EQUAL 
tONLY CONCERNED WITH BITS 5 1 
J IF R4-76 THEN BITS 5 I IN R4 AND R5 
J WERE COMPLIMENTS 
J IF THEY'RE NOT 

:THEN CHECK FOR BIT2 SET IN HIT /MISS REG. 
J IF ACCESS WAS A CACHE MISS THEN GO TO 7$ 
lELSE IT WAS A HIT; GO TO 250$ 
220»: BIT •BIT03.R2 jELSE CHECK FOR BIT5 SET IN HIT/MISS REG. 

:IF ITS NOT A HIT THEN GO TO 7» 
(ELSE 

2501: CMP R5. R5 j IF CURRENT ADDRESS NOT EQUAL TO GOOD 

(ADDRESS THEN 

(MOVE RETRY ADDRESS TO SOFT RETURN 
J GO TO SOFT ERROR SUBROUTINE 
(CACHE SYSTEM ERROR 

(GOT A CACHE MISS WHEN EXPECTING A HIT. 
(ALL ERRORS TO TRAP TO EMT VECTOR 
(UNIQUE ERROR NUMBER 
(ADDRESS OF ERROR MESSAGE 
7$: CMP R5. RS (IF CURRENT ADDRESS EQUAL GOOD ADDRESS 

(THEN 

(MOVE RETR> ADDRESS TO SOFT RETURN 
(GO TO SOFT ERROR SUBROUTINE 
(CACHE SYSTEM ERROR 



MOV 


•205$.R4 


COM 


R4 


XOR 


R5.R4 


BIC 


#177701, R4 


CMP 


#76. R4 


6EQ 


220* 


BIT 


•6IT02.R2 


BEQ 


7$ 


BR 


250 » 


BIT 


«BIT03.R2 


BEQ 


7» 


CMP 


R5. R5 


BEQ 


81 


MOV 


#TST2l.4.»#S0FTRE 


JSR 


PC.APTSFT 


ERROR 




.WORD 


72 


.WORD 


ERRMSG 


CMP 


R5. RS 


BNE 


8$ 


MOV 


#TST21*4.8#S0FTRE 


JSR 


PC.APTSFT 



GLOBAL AREAS MACUl 30A(1052 ) 04 APR -64 
KOJllA.MAC 03 -APR 84 11:56 T21 

^757 

2758 007576 104000 

2759 007600 000075 

2760 007602 001525 

2761 007604 062705 001000 8»: 

2762 007610 005267 171240 

2763 007614 002724 

2764 007616 062703 000002 

2765 007622 042705 017000 

2766 007626 062705 000002 

2 767 007652 062737 000200 172354 

2768 007640 005267 171212 

2769 007644 002705 

2770 007646 062767 001000 171252 

2771 007654 005267 171200 

2772 007660 002002 

2775 007662 000167 177462 

2774 007666 005067 167700 9»: 

2775 007672 016757 171152 000114 

2776 007700 005057 177744 

2777 007704 005057 177766 

2778 007710 005037 001116 

2779 007714 000167 000000 
2780 

2781 007720 10* 
2782 



F5 

5§ PAGE 57 

TAG RAM DUAL ADDRESS TEST 



ERROR 






.WORD 


75 




!uORD 


ERRMSG 




ADD 


«1000, 


R5 


INC 


DCOUNT 




BLT 


6* 




Aon 


02, 


R5 


BIC 


•17000. 


R5 


ADD 


•2. 


R5 


ADO 


0200. 


a«K IPAR6 


INC 


ALLCTR 




BLT 


5» 




ADD 


•1000. 


LOUADD 


INC 


LOOP IN 




BGE 


91 




JMP 


1* 




CLR 


SRO 




MOV 


SLOCOO. 


a«114 


CLR 


8«MSER 




CLR 


8«CPEREG 


CLR 


MSOFTER 


JMP 


TST22 





SEQ 0057 



,GOT A CAC^C HIT UHEN EXPECTING A MISS. 
,ALL ERRORS TO TRAP TO EMI VECTOR 
(UNIQUE ERROR NUMBER 
I ADDRESS OF ERROR MESSAGE 
I UPDATE TO NEXT BLOCK 

tIF ADDRESS NOT CHECKED FOR EACH BLOCK 
:ENDDO 

(UPDATE GOOD ADDRESS 

(UPDATE ADDRESS TO BE CHECKED 



jIF ALL ADDRESSES CHECKED 
lENODO 

(UPDATE TO NEXT BLOCK TO BE ALLOCATED 

J IF ALL BLOCKS WERE TESTED 

tENDOO 

• 

{DISABLE MMU 

(RESTORE ABORT VECTOR 

(CLEAR THE MEM STS ERROR REG 

(CLEAR THE CPU ERROR REGISTER 

(CLEAR THE SOFT ERROR COUNT 

(JUMP OVER DATA TABLES OR SUBROUTINES 

(TO NEXT TEST 



G5 



GLOeAL AREAS 
KOJllA.MAC 



MACUl 50AC1052) 
03 -APR 84 11:36 



04 APR 84 

T21 



10:38 PAGE 58 

TAG RAM DUAL ADDRESS TEST 



SEQ 0058 



278S 








2 784 








2785 


007 720 






2786 








2787 








2788 








2789 


007720 






27«W 


007720 


005267 


171060 


2791 


007724 


032777 


001000 


2792 


007732 


001002 




2793 


007734 


000167 


000772 


2794 


007740 


032777 


000400 


2795 


007746 


001404 




2796 


007750 


012767 


177777 


2797 


007756 


000402 




2798 


007760 


005067 


171056 


2799 


007764 


013767 


000114 


2800 


007772 


012737 


000116 


2801 


010000 


005037 


000116 


2802 


010004 


004767 


171402 


2803 


010010 


042767 


100000 


2804 


010016 


012767 


000020 


2805 


010024 


012767 


001600 


2806 


010032 


012701 


100000 


2807 


010036 


012702 


000000 


2608 


010042 


012700 


010000 


2809 


010046 


012767 


000001 


2810 


010054 


012221 




2811 


010056 


077002 




2812 


010060 


000137 


110064 


2813 








2814 








2815 








2616 


010064 


012701 


140000 


2817 


010070 


005037 


172354 


2618 


010074 


042737 


100000 


2819 


010102 


012702 


010000 


2820 


010106 


005721 




2821 


010110 


077202 




2822 








2823 


010112 


012737 


000002 


2824 


010120 


012701 


110672 


2825 


010124 


012706 


120000 


2626 








2827 


010130 


012702 


140002 


2628 








2629 








2630 








2631 








2832 








2833 








2634 








2635 








2636 








2837 








2638 


010134 


012137 


172352 



.DSABL AMA 



171114 

171100 
171064 



171036 
000114 



162274 
162472 
162316 



167516 



172300 



177746 



CTST24: 
j*TEST 22 



TAG RAM DATA RELIABILITY TEST 



TST22: 



lOOOt: 



1001 >: 
10021: 



100*: 



INC tTESTN 

BIT «eiT09.SSUR 

BNE 1000 t 

JMP XXX 

BIT «BIT08.SSUR 

BEQ 10011 

MOV ♦177777, FLAG 

BR 1002 « 

CLR FLAG 

MOV a«114.SLGC00 

MOV «1 16. Ml 14 

CLR M116 

JSR PC, INITMM 

BIC •BIT15,KIP0R5 

MOV *20.SR3 

NOV #1600.KIPAR4 

MOV •lOOOOO.Rl 

MOV «0.R2 

MOV •4096.. RO 

MOV tl.SRO 

MOV (R2)*.(R1)* 

SOB RO.lOOt 

JMP 8*1011*100000 



increment test number 

lare data reliability tests selected? 

i if bit09 in swr - 1 ithen 00 test 

(else go to end. 

;is this an 16 bit system? 

iif bit08 in sur-0 branch to 1001* 

sset up indicator for 18 bit sys 

i set up indicator for 22 bit system 

isave old parity error vector 

i put trap catcher in for cache parity errors 

'initialize MMU 

i CLEAR CACHE BYPASS ON P0R5 
I ENABLE 22 BIT ADDRESSING. 
iSET KIPAR4 TO RELOCATE TO BANfv 
sSET UP Rl AS POINTER TO BANK 7 
(SET UP R2 AS POINTER TO SANK 0 
I SET UP RO AS COUNTER 
:TURN ON MMU 

(MOVE ALL THE COC£ IN FIRST 4KU TO BANK 7 
I START EXECUTING OUT OF BANK 7 



7 OF MEM. 
VIA KIPAR4 



lUE ARE NOW OPERATING FROM PHYSICAL MEMORY IN BANK 7 (160000-177776) 

loi* 



1*: 



MOV •140000.R1 

CLR a«KIPAR6 

BIC •BIT15.MKIP0R0 

MOV 410000. R2 

TST (Rl)» 

SOB R2. 1* 

MOV «BIT01.8*CCR 

MOV •TAGA01*100000.R1 

MOV •120000. R6 



•140002. R2 



I SETUP TO INIT CACHE TAG STORE TO ZEROS 
I SET KIPAR6 TO RELOCATE TO PAGE 0 
I ALLOW CACHE REFERENCE ON PAGE ZERO 
{INITIALIZE 4K WORDS 
(CLEAR TAG STORE 

iLOOP UNTIL ALL OF TAG STORE INITIALIZED 

I SET DIAGNOSTIC BIT IN CCR 
iMAKE Rl A POINTER TO TABLE OF DATA. 
(SET UP TEST ADDRESS IN R6 
i USING R6 TO SPEED UP TEST LOOP 
|R2 WILL BE USED TO INDEX THRU THE CACHE. 



MOV 

: START TESTING 

I THE OBJECT OF THIS TEST IS TO TRY EVERY POSIBLE DATA COMBINATION AT A 
I GIVEN ADDRESS WHILE ALL OTHER ADDRESSES ARE SET TO ALL ZEROS. ONCE A 
{CHANGE IN THE DATA AT A PARTICULAR ADDRESS HAS BEEN MAOEi ALL OTHER 
:AOmESSES ARE CHECKED TO ENSURE THAT DATA HAS NOT BEEN ALTERED. WHEN ALL 
sOATA COMBINATIONS HAVE BEEN CHECKED AT A PARTICULAR ADDRESS; THAT ADDRESS 
;IS RESET TO ZEROS AND THE NEXT CONSECUTIVE ADRESS IS TESTED. THIS IS DONE 
(UNTIL ALL 4096 LOCATIONS HAVE BEEN TESTED. 



FLDO: 



MOV 



(R1)*.S»KIPAR5 



(MOVE RELOCATION OFFSET (DATA THAT wIuL 



GLOBAL AREAS MACtH 30A(1052 ) 04 APR 04 10:38 PAO 
KDJllA.MAC 05 -APR 84 11:36 122 TAG RAM 



^839 














2840 


010140 


005767 


170676 






TST 


2841 


010144 


001403 








BEQ 


2642 


01C'.46 


042737 


170000 


172352 




BIC 


2943 


010154 


0OSO16 






1(: 


CLR 


2844 


010156 


013703 


177752 






MOV 


2845 


010162 


005703 








TST 


2846 


010164 


001403 








BEQ 


2847 


010166 


104000 








ERROR 


2846 


010170 


000074 








.WORD 


2849 


010172 


001325 








.UORD 


2850 














2651 














2852 


010174 








FLOOA: 




2853 


010174 


005716 








TST 


2654 


010176 


032737 


000010 


177752 




BIT 


2655 


010204 


001003 








BNE 


2856 


010206 


104000 








ERROR 


2857 


010210 


000075 








.WORD 


2656 


010212 


00132:^ 








.WORD 


2659 














2660 














2661 


010214 


012700 


010000 




100»: 


MOV 


2662 


010220 


012704 


000004 






MOV 


2863 


010224 


012705 


160000 






MOV 


2664 


010230 


020502 






1<: 


CMP 


2865 


010232 


001410 








BEQ 


2866 


010234 


005722 






2»: 


TST 


2867 














2666 


010236 


030437 


177752 






BIT 


2669 


010242 


001407 








BEQ 


2870 


010244 


077007 






101$: 


SOB 


2671 


010246 


104000 








ERROR 


2672 


010250 


000076 








.WORD 


2873 


010252 


001325 








.UORD 


2674 














2875 














2676 














2877 


010254 


042702 


037776 




102$: 


BIC 


2676 


010260 


000765 








BR 


2679 


010262 


010203 






3$: 


MOV 


2660 


010264 


162703 


020002 






SUB 


2661 


010270 


020306 








CMP 


2662 














2863 


010272 


001403 








BEQ 


2884 


010274 


104000 








ERROR 


2665 


010276 


000077 








.WORD 


2686 


010300 


001325 








.WORD 


2887 














2666 


C10302 


005711 






4$: 


TST 


2869 


010304 


001313 








BNE 


2690 














2691 


010306 


022706 


137776 




5$: 


CMP 


2892 


010312 


001410 








BEQ 


2693 


010314 


062706 


000002 






ADD 


2894 


010320 


062702 


000002 






ADD 



iBE IN THE TAG RAMS) TO KIPAR5, 

lis THIS AN 18 BIT SYSTEM 

I BRANCH ir NOT 

jMODIFT FOR 18 BIT SYSTEM 

iLOAD TAG RAMS WITH DATA PATTERN. 

.SAVE CONTENTS OF HIT/MISS REG IN R3 

(HIT MISS REGISTER SHOULD BE CLEAR 

S BRANCH TO FLOOA 

;ALL ERRORS TO TRAP TO EMT VECTOR 
(UNIQUE ERROR NUMBER 
(ADDRESS OF ERROR MESSAGE 

(CACHE SYSTEM ERROR 
(ERROR!! WE GOT A CACHE HIT- WANTED A MISS 

(CHECK THAT CACHE WAS PROPERLY ALLOCATED. 
(WE'RE LOOKING FOR A HIT THIS TIME. 

IalL ERRORS TO TRAP TO EMT VECTOR 
(UNIQUE ERROR NUMBER 
(ADDRESS OF ERROR MESSAGE 

(CACHE SYSTEM ERROR 

(ERROR! 

:INIT RO TO COUNT 4KW0RDS. 

(LOAD DATA INTO R4 TO SPEED UP BIT INST. 

(LOAD DATA INTO R5 TO SPEED UP CMP INST. 

(IF TOP OF CACHE HAS BEEN REACHED 

(GO RESET R2 TO 140000 

(ENSURE THAT OTHER CACHE LOCATIONS 

(WERE UNAFFECTED. 

(ALL CACHE LOCATIONS SHOULD HIT. 

(KEEP GOING UNTIL WE GET A MISS 

(TEST THE NEXT CACHE LOCATION 

(ALL ERRORS TO TRAP TO EMT VECTOR 

(UNIQUE ERROR NUMBER 

(ADDRESS OF ERROR MESSAGE 

(CACHE SYSTEM ERROR 
(ERROR! WE SHOULD HAVE GOTTEN A MISS 
(BEFORE FALLING THRU SOB 
(RESET R2 TO 140000 

!SAVE CONTENTS OF R2 IN R3 
(SUBTRACT 20002 FROM CONTENTS OF R3 
(SHOULD BE EQUAL. IF NOT( THEN THE 
(CACHE RAM HAS BEEN ALTERED 
(GO TO NEXT TEST 

(ALL ERRORS TO TRAP TO EMT VECTOR 
(UNIQUE ERROR NUMBER 
(ADDRESS OF ERROR MESSAGE 

(CACHE SYSTEM ERROR 
(HAVE WE TRIED ALL PATTERNS AT THIS LOC? 
(GO GET NEXT ADDRESS IF YES. 
(IF NOT GO DO THE NEXT DATA PATTERN. 
(HAVE WE TESTED ALL 4KW CACHE LOCATION^.' 
(IF YES THEN GO TO NEXT TEST 
(ELSE GET THE NEXT ADDRESS... 
(BUMP R2 



15 

GLOBAL ARFAS MACvll S0A(1052) 04 APR 84 10:38 PAGE 60 

KOJllA.HAC 03 -APR 84 11:36 T22 TAG RAM DATA RELIABILITY TEST 



^895 


010524 


012701 


110672 






MOV 


«TAGA01* 100000. Rl 


2896 


010350 


000167 


177600 






JMP 


FLDO 


2897 










i 






2896 


010554 


012701 


140000 




TLOl: 


MOV 


«140000.R1 


2899 


010540 


012757 


077600 


172554 




MOV 


•77600. a«KIPAR6 


2900 
















2901 


010546 


005767 


170470 






TST 


TLAG 


2902 


010552 


001406 








BEQ 


1001 


2905 


010554 


042757 


170000 


172554 




BIC 


•170000. a«KIPAR6 


2904 


010562 


012757 


000002 


177746 




MOV 


•6IT01,d«CCR 


2905 


010570 


012702 


010000 




100$: 


MOV 


•4096. .R2 


2906 


010574 


005021 






1»: 


CLR 


(Rl). 


2907 


010576 


077202 








SOB 


R2.1$ 


2908 


010400 


012701 


110704 






MOV 


•TAGAD2* 100000. Rl 


2909 


010404 


012706 


120000 






MOV 


•120000. R6 


2910 


010410 


012702 


140002 






MOV 


•140002. R2 


2911 


010414 


012137 


172352 




FLOIA: 


MOV 


(R1)*.S^KIPAR5 


2912 


010420 


005767 


170416 






TST 


FLAG 


2913 


010424 


001403 








BEQ 


It 


2914 


010426 


042737 


170000 


172552 




BIC 


•1 70000. S«KIPAR5 


2915 


010454 


005016 






!•: 


CLR 


(R6) 


2916 


010456 


013703 


177752 






MOV 


0^MITMIS.R5 


2917 


010442 


0057C5 








TST 


R3 


2918 


010444 


001403 








BEQ 


FLDIB 


2919 


010446 


104000 








ERROR 




2920 


010450 


000100 








.WORD 


100 


2921 


010452 


001525 








.WORD 


ERRMSG 


2922 
















2923 


010454 








TLOIB: 






2924 


010454 


005716 






1*: 


TST 


(R6) 


2925 


010456 


032737 


000010 


177752 




BIT 


•BIT03.8^MITMIS 


2926 


010464 


001003 








BNE 


100 » 


2927 


010466 


104000 








ERROR 




2928 


010470 


000101 








.WORD 


101 


2929 


010472 


001525 








.WORD 


ERRMSG 


2930 












2931 


010474 


012700 


010000 




100»: 


MOV 


•4096. .RO 


2932 


010500 


012705 


160000 






MOV 


• 160000. R5 


2933 


010504 


020502 






2*: 


CMP 


R5.R2 


2954 


010506 


001412 








BEQ 


104* 


2935 


010510 


005022 






101*: 


CLR 


(R2)» 


2956 












2937 






1 / ' f Dc 




1Q2» : 


nuv 


••MI InIS , R3 


2938 


010516 


052703 


000004 






BIT 


•6IT02.R5 


2939 


010522 


001407 








BEQ 


105* 


2940 


010524 


077011 






1051: 


SOB 


R0.2» 


2941 


010526 


104000 








ERROR 


2942 


010550 


000102 








.WORD 


102 


2943 


010552 


001525 








.UORO 


ERRMSG 


2945 
















2946 
















2947 


010554 


042702 


057776 




104<: 


BIC 


•37776. R2 


2948 


010540 


000765 








BR 


lOlt 


2949 


010542 


012704 


010512 




105 i: 


MOV 


•102».R4 


2950 


010546 


010267 


170332 






MOV 


R2. CUR ADD 



SEQ 0060 



iRESET DATA POINTER 
I DO IT AGAIN 

iINIT Rl 

iDATA IN KIPAR6 UILL CAUSE TAG RAMS 

I TO BE SET TO ALL I'S. 

lis THIS AN 18 BIT SYSTEM? 

(BRANCH IF NOT 

iMODIFY FOR 18 BIT SYSTEM 

iSET DIAGNOSTIC BIT IN CACHE CONTROL REG 

J SET UP TO FILL 4KW OF CACHE UITM ONES 

sURITE THE CACHE 

isET UP Rl AS A POINTER TO DATA TABLE 
I SET UP TEST ADDRESS 
I SET UP R2 

(DATA IN KIPAR5 UILL BE WRITTEN INTO TAG RAM 

lis THIS AN 18 BIT SYSTEM? 

iBRANCHIF NOT 

iMOOIFY FOR 18 BIT SYSTEM 

iWRlTE TAG RAM WITH TEST DATA 

tSrORE CONTENTS OF HIS MISS REGISTER 

I HIT /MISS REGISTER SHOULD BE CLEAR 

{BRANCH IF IT WAS A MISS 

I ALL ERRORS TO TRAP TO EMT VECTOR 

i UNIQUE ERROR NUMBER 

I ADDRESS OF ERROR MESSAGE 

s CACHE SYSTEM ERROR 

I TEST ADDRESS SHOULD NOW BE ALLOCATED IN CACHE 
sOID IT HIT? 
I BRANCH IF YES 

sALL ERRORS TO TRAP TO EMT VECTOR 
I UNIQUE ERROR NUMBER 
{ADDRESS OF ERROR MESSAGE 

i CACHE SYSTEM ERROR 
sINIT RO TO COUNT 4 KWOROS 
8 STORE DATA IN R5 FOR FASTER CMP INST. 
ilF THE TOP OF CACHE HAS BEEN REACHED 
iTHEN GO RESET R2 TO 140000 
.CHECK THE OTHER CACHE LOCATIONS TO 
sSEE THAT THEY STILL HIT. 
:SAVE MIT MISS REG IN R3 
lOID IT HIT? 

sKEEP TESTING UNTIL A MISS OCCURS 

I TEST THE NEXT CACHE LOCATION 

I ALL ERRORS TO TRAP TO EMT VECTOR 

I UNIQUE ERROR NUMBER 

I ADDRESS OF ERROR MESSAGE 

: CACHE SYSTEM ERROR 
I ERROR! SHOULD NOT HAVE FALLEN ThRo 
I SOB INST BEFORE GETTING A MISS 
iRESET R2 TO 140000 

isAVE AOOP OF MOV INSTRUCTION IN R4 
(SAVE R2 IN CURADD 



J5 
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010552 


162767 


000002 


1 70324 




SUB 


92 . C' JRAOO 


, SUBTRACT 2 TROM R2 




010560 


042767 


177701 


170316 




BIC 


•177701 CURAOD 


lONLY INTERESTED IN BTT*; 1-5 


2953 


010566 


042704 


177701 






BIG 


♦177701 ,R4 


1 STRIP OFF UN-NEEDED BITS 


2954 


010572 


020467 


170306 






CMP 


R4, CUR ADD 


tIF BITS 5-lIN R4 AND CURADO MRF EQUAL' 


2955 


010576 


001004 








BNE 


3f 


J THEN 


2956 


0106O0 


032703 


000010 






BIT 


•BIT03.R3 


iTEST BIT03 IN HIT MISS REG 


2957 


010644 


001401 








BEQ 


31 


t IF ITS A HIT THEN DO THE NEXT AODR 


2958 


010606 


000746 








BR 


103$ 


I STORE CONTENTS OF R2 IN R3 


2959 


010610 


010203 






3$: 


MOV 


R2.R3 


2960 


010612 


162703 


020002 






SUB 


•20002 , R3 


> SUBTRACT 20002 FROM R3 


2961 


010616 


020306 








CMP 


R3,R6 


J IS R3" TO THE TEST ADDRESS. 


2962 


010620 


001403 








BEQ 


4$ 


; BRANCH IF THEY ARE EQUAL 


2963 


010622 


104000 








ERROR 




:ALL ERRORS TO TRAP TO EMT VECTOR 


2964 


010624 


000103 








.WORD 


103 


iiJNIQUE ERROR NUMBER 


2965 


010626 


001325 








.WORD 


ERRMSG 


{ADDRESS OF ERROR MESSAGE 


2966 
















i CACHE SYSTEM ERROR 


2967 


010630 


005711 






4t: 


TST 


(Rl) 


jUAS THIS THE LAST PATTERN FOR THIS LOCATION? 


2968 


010632 


001400 








BEQ 


6$ 


iGO GET NEXT ADDRESS IF YES 


2969 










i CHECK 








2970 










TO SEE ir ALL LOCATIONS HAVE 


BEEN TESTED. IF NOT. GENERATE THE NEW 


2971 










s ADDRESS. RESET 


THE DATA POINTER AND 


TEST THE NEXT CACHE LOCATION. 


2972 


















2973 


010634 


022706 


137776 




6$: 


CMP 


•137776. R6 


:HAVE WE TESTED ALL 4KU CACHE LOCATIONS? 


2974 


010640 


001412 








BEQ 


6t 


;IF YES THEN GO TO END OF TEST 


2975 


010642 


005062 


177776 




7$: 


CLR 


-2(R2) 


jELSE WRITE ONES IN THE LOCATION LAST TESTED 


2976 


010646 


062706 


000002 






ADO 


*2,R6 


:GET THE NEXT ADDRESS... 


2977 


010652 


062702 


000002 






ADD 


•2.R2 


{BUMP R2 


2978 


010656 


012701 


110704 






HOV 


•TAGAD2* 100000, Rl 


tRESET DATA POINTER 


2979 


010662 


000167 


177526 






JMP 


FLDIA 


,00 IT AGAIN 


2980 


010666 


000137 


010716 




8t: 


JMP 


MTSEND 


:JUMP OUT OF BANK 7 


2981 










: 






2982 


















2983 


010672 


104200 






TAGADl: 


.WORD 


104200 




2984 


010674 


010400 








.UORD 


010400 




2985 


010676 


121000 








.UORD 


121000 




2986 


010700 


042000 








.UORD 


042000 




2987 


010702 


000000 








.UORD 


000000 




2988 


010704 


073400 






TAGA02: 


.UORD 


073400 




2989 


010706 


167200 








.UORD 


167200 




2990 


010710 


OS6600 








.UORD 


056600 




2991 


010712 


135600 








.UORD 


135600 




2992 


010714 


000000 








.UORD 


000000 




2993 


















2994 


010716 


005037 


177746 




TSENO: 


CLR 


8«CCR 


; CLEAR THE CCR 


2995 


010722 


005037 


177572 






CLR 


0*SRO 


iTURN OFF MMU 


2996 


010726 


012706 


001000 






MOV 


•SrB0T.R6 


1 RESTORE STACK POINTER 


2997 


010732 


016737 


170072 


000114 


XXX: 


MOV 


SLOCoo. a^ii4 


{RESTORE VECTOR 


2998 


010740 


016737 


170066 


000116 




MOV 


SLOCOl. 8«116 




2999 
















3000 


















3001 



















GLOBAl. AREAS 
KOJllA.HAC 



HACtn 30A(105?) 
05 APR 84 11:36 



3002 








3003 








3004 








3005 








3006 








3007 








3008 








5009 








3010 








3011 


010746 






3012 


010746 


005767 


170034 


3013 


010752 


001002 




3014 


010754 


104401 


011054 


3015 


010760 






3016 


010760 


005267 


170022 


3017 


010764 


042767 


100000 


3018 


010772 


005527 




3019 


010774 


000001 




3020 


010776 


005022 




3021 


011000 


012757 




3022 


011002 


000001 




3023 


011004 


010774 




3024 


011006 


104401 


011155 


3025 


011012 


016746 


167770 


3026 


011016 


104405 




3027 


011020 


104401 


011050 


3028 


011024 


015700 


000042 


3029 


011030 


001405 




3030 


011052 


000005 




3031 


011034 


004710 




3032 


011056 


000240 




3033 


011040 


000240 




3034 


011042 


000240 




3035 


011044 






3036 


011044 


000157 




3037 


011046 


002176 




3038 


011050 


577 


377 


3039 




011054 




3040 


011054 


005015 


055105 


3041 


011062 


026515 


026502 


3042 


011070 


042115 


030512 


3043 


011076 


040503 


044105 


3044 


011104 


042515 


047515 


3045 


011112 


051440 


051551 


3046 


011120 


020115 


044504 


5047 


011126 


047516 


052125 


3046 


011134 


000 




5049 


011155 


015 


041412 


5050 


011142 


046504 


020102 


5051 


011150 


020104 


040520 


5052 


011156 


021440 


000 


5055 




OIL 162 




5054 








5055 








3056 








5057 









04 APR 84 10:38 PAGE 62 

T22 TAG RAH DATA RELIABILITY TEST 

.MCALL IDMSG.ENOPAS 
.S8TTL END OF PASS ROUTINE 



SEQ O062 



J ♦INCREMENT THE PASS NUr«ER (»PASS) 

; ♦INDICATE END OF -PROGRAM AFTER 1 PASSES THRU THE PROGRAM 
;^IF THERES A MONITOR GO TO IT 
J ♦IF THERE ISN'T JUMP TO RESTART 



(EOP: 



170014 



000 

042115 
020060 
020061 
020105 
054522 
042524 
045501 
041511 

045552 
047105 
051525 





TST 


IPASS 




BNE 


SKIPID 




Type 


.MSGl 


SKIP ID: 








INC 


tPASS 




SIC 


«100000. IPASS 




DEC 


(PC)» 


*EOPCT: 


.WORD 


1 




BGT 


tOOAGN 




MOV 


(PC)* .acpo* 


tENDCT: 


.UORD 


1 




♦EOPCT 






1 YPt 


,MSG2 




MOV 


»PASS.-(SP) 




TYPDS 




TYPE 


.lENULL 


»GET42: 


MOV 


S«42.R0 




BEQ 


IDOAGN 




RESET 




(ENDAD: 


JSR 


PC.CRO) 




NOP 






NOP 






NOP 




(OOAGN: 








JMP 


8(PC)* 


*RTNAD: 


.WORD 


RESTART 


tENULL: 


.BYTE 


-l.-l.O 




.EVEN 




MSCl: 


.ASCIZ 


<CR><LF>/CZKDM 



jONLY TYPE MESSAGE AT END OF FIRST PASS 
;IF >0 THEN SKIP THE ID MESSAGE 
jELSE TYPE THE ID MESSAGE 

; J INCREMENT THE PASS NUMBER 
tiDON'T ALLOU A NEG. NUMBER 
11 LOOP? 

i ! YES 

IIrESTORE COUNTER 



:tSAVE $PASS FOR TYPEOUT 

t:GO TYPE- -DECIMAL ASCII UITH SIGN 

IS GET MONITOR ADDRESS 
s J BRANCH IF NO MONITOR 
I : CLEAR THE UORLD 

i {go to monitor 
mSave room 

SjFOR 
itACril 

: {RETURN 

cNULL CHARACTER STRING 

i 0 KDJll CACHE MEMORY SYSTEM DIAGNOSTIC/ 



MSG2: .ASCIZ <CR>«LF>/CZKDMB END PASS 



.EVEN 

.SBTTL TYPE ROUTINE 



{♦ROUTINE TO TYPF ASCIZ MESSAGE. MESSAGE MUST TERMINATE UITH A 0 BtTE. 



GLOeAi. AREAb 
KOJllA.MAC 



MACUl 30 A (1052) 
05 APR 84 11:36 



04 



APR 84 
TYPE 



10:38 PAGE 

Rf 



L 



ROUTINE 



63 



SEQ O063 



















































3064 
















3066 








3067 








3066 








3069 








3070 








3071 


01 1 16P 

VAX xvc 


105767 

A V-' ' W f 


000343 

WW J 


5072 


011166 


100002 

A WWC 




3073 


011170 


oooooo 

www 




3074 


011172 


000430 

WW^ WW 




3075 


011174 


010046 

W A WW^ W 




3076 


011176 


01 7600 

W 4. ' WWW 


000002 

wwvwwc 


3077 


011202 


122767 

ACC ' W f 


OOOOOl 

www A 


3076 


011210 


OOlOll 

VW AW A A 




3079 




132767 


OOOlOO 


3080 


01 IPPO 

V A ACC V 






3081 


Ol IPPP 
V A ACCC 


010067 




3082 


01 1PP6 

VA ACC V 


004767 


0016PP 


5083 


011232 

V A AC v'C 


OOOOOO 

WwWW 




5084 


011234 

W A AC 


152767 




3085 


011P4P 

V A AC**C 






3086 


01 

V A AC**** 






5087 


011246 

V A A ~ V 


00100S 




5088 


011250 

V A AC a^V 


0OS7P#i 




3089 


01 IPSP 






5090 


011PS4 




nOAA03 


5091 


OllPftO 

V A ACwV 






5092 


011P6P 

W A AC VC 


1 PP71 A 

XCC r Xv 


^AAA/X X 


5095 


011P66 

V A AC W 






5094 


011270 


12P716 


000700 


5095 


011274 

V A AC ' ~ 


001 AAA 




5096 


011276 

V A AC ■ 9 


AOS 796 




5097 


0113OO 

W A A WW 


104401 




5098 


Oil SOP 

V A A W VC 


WX*twO 




5099 


011504 


105067 


000909 


5100 


011510 


00075«i 

WWW f JmJ 




5101 


011512 


004767 


OOOOSf^ 


5102 


011316 

W A A WAV 


126726 


WVC 


SIOS 


01 1 SPP 

W A AwCC 


WX<99v 




5104 


011SP4 

VA AwC~ 


0167Af; 
vXv r 




5105 






5106 


011550 


105366 


OOOOOl 

W\^^^WW A 


5107 


011554 


002770 




5108 


011556 


004767 


000052 


5109 


011542 


105567 


000144 


5110 


011546 


000770 




5111 








5112 








5115 









{♦THE ROUTINE 
s»NOTEl 
; •NOTES 1 
:*N0TE3: 
:• 

s •CALL : 
:*1) USING A 
; • TYPE 
:*0R 
;• TrPE 
: • HESADR 



WILL INSERT A NUMBER OF NULL CHARACTERS AFTER A LINE FEED. 

$NULL CONTAINS THE CHARACTER TO BE USED AS THE FILLER CHARACTER. 
IFILLS CONTAINS THE NUMBER OF FILLER CHARACTERS REQUIRED. 
IFILLC CONTAINS THE CHARACTER TO FILL AFTER. 



TRAP INSTRUCTION 
.MESADR 



uMESAOR IS FIRST ADDRESS OF AN ASCIZ STRING 



167610 
167601 



ITYPE: 


TSTB 


»TPFLG 


i:IS THERE A TERMINAL? 




BPL 


1$ 


t tBR IF YES 




HALT 




I I HALT HERE IF NO TERMINAL 




BR 


3$ 


: (LEAVE 


1<: 


MOV 


RO. -(SP) 


• , SAVE RO 




MOV 


S2(SP),R0 


jjGET ADDRESS OF ASCIZ STRING 




CMPB 


*APTENV. $ENV 


1 {RUNNING IN APT MODE 




BNE 


62$ 


tiNO.GO CHECK FOR APT CONSOLE 




BITB 


«APTSP00L. lENVM 


{J SPOOL MESSAGE TO APT 




BEQ 


62$ 


::NO.GO CHECK FOR CONSOLE 




MOV 


R0.61$ 


:s SETUP MESSAGE ADDRESS FOR APT 




JSR 


PC. $ATY3 


J ; SPOOL MESSAGE TO APT 


61$: 


.UORD 


0 


s (MESSAGE ADDRESS 


62$: 


BITB 


♦APTCSUP . JENVM 


it APT CONSOLE SUPPRESSED 




BNE 


60$ 


; J YES, SKIP TYPE OUT 


2$: 


MOVB 


CRO)» . -(SP) 


> iPUSH CHARACTER TO BE TYPED ONTO STACK 




BNE 


4$ 


iiBR IF IT ISN'T THE TERMINATOR 




TST 


CSP)» 


IS IF TERMINATOR POP IT OFF THE STACK 


60$: 


MOV 


(SP)».RO 


: (RESTORE RO 


5$: 


ADO 


♦2,CSP) 


( (ADJUST RETURN PC 




RTI 




{ (RETURN 


4$: 


CMPB 


OHT.CSP) 


((BRANCH IF <HT> 




BEQ 


8$ 






CMPB 


♦CRLF.CSP) 


((BRANCH IF NOT <CRLF> 




BNE 


5$ 






TST 


(SP)» 


{(POP <CR><LF> EQUIV 




TYPE 




{{TYPE A CR AND LF 




$CRLF 








CLRB 


$CHARCNT 


s (CLEAR CHARACTER COUNT 




BR 


2$ 


{ (GET NEXT CHARACTER 


5$: 


JSR 


PC.$TYPEC 


((GO TYPE THIS CHARACTER 


6$: 


CMPB 


$FILLC.(SP)» 


((IS IT TIME FOR FILLER CHARS.? 




BNE 


2$ 


((IF NO GO GET NEXT CHAR. 




MOV 


$NULL. -CSP) 


((GET 9 OF FILLER CHARS. NEEDED 








s (AND THE NULL CHAR. 


7$: 


DECB 


KSP) 


{(DOES A NULL l«ED TO BE TtPED? 




BLT 


6$ 


(iBR IF NO-GO POP THE NULL OFF OF STACK 




JSR 


PC.$TYPEC 


( (GO TYPE A NULL 




DECB 


$CHARCNT 


((DO NOT COUNT AS A COUNT 




BR 


7$ 


{ (LOOP 



(HORIZONTAL TAB PROCESSOR 



GLOBAL 


AREAS 


MACUl 


50A(1052) 04 Al 


KOJllA 


HAC 03 -APR 84 


11:36 




3114 


011350 


112716 


000040 




3115 


011354 


004 767 


000014 




3116 


011360 


152767 


000007 


000124 


3117 


011366 


001372 






3118 


011570 


005726 






3119 


011372 


000724 






3120 


011374 








3121 


011374 


105777 


000116 




3122 


011400 


100022 






3125 


011402 


017746 


000112 




3124 


011406 


042716 


177600 




3125 


011412 


122716 


000023 




3126 


011416 


001012 






3127 


011420 








312S 


011420 


105777 


000072 




5129 


011424 


100375 






3130 


011426 


117716 


000066 




V 4 * 4 

3131 


011432 


042716 


177600 




5132 


011436 


122716 


AAA A *\ 4 

000021 




3135 


011442 


001366 






3134 


011444 








5135 


011444 


005726 






5156 


011446 








5157 


011446 


105777 


AAAAK A 

000050 




VIVO 
3159 


011452 


100375 






3139 


011454 


116677 


Ay\'^ 

000002 


000042 


3140 


011462 


122766 


A AAA • f 

000015 


000002 


5141 


011470 


001003 






5142 


011472 


105067 


000014 




5145 


011476 


000406 






5144 


011500 


122766 


000012 


000002 


V 4 it e 


011506 


001402 






3146 


011510 


105227 






3147 


011512 


000000 






3148 


011514 


000207 






3149 










3150 


011516 


177560 






3151 


011520 


177562 






V 4 CO 

3152 


011522 


177564 






3153 


011524 


177566 






3154 


011526 


000 






3155 


011527 


002 






X 4 ec 

3156 


011530 


012 






5157 


011531 


000 






3150 


011532 


077 






3159 


011533 


012 


000 




3160 




011536 






V 4 C 4 

5161 










5162 










5163 










3164 




















3166 










3167 










3168 










3169 











) 64 10:38 PAGE 64 
TYPE ROUTINE 



SEQ 0064 



81: 

91: 



ITYPEC: 



101 1: 



102* I 
10»: 



HOVB 

JSR 

BITB 

BNE 

TST 

BR 

TSTB 

BPL 

MOV 

BIC 

CMPB 

BNE 

TSTB 

BPL 

MOVB 

BIC 

CMPB 

BNE 

TST 



TSTB 
BPL 
MOVB 
CMPB 
BNE 
CLRB 
BR 

l»: CMPB 
BEQ 
INCB 
ICHARCNT: .WORD 
♦TYPEX: RTS 



ITKS 
$TKB 
$TPS 
ITPB 
(NULL: 
iriLLS 
IFILLC 
♦TPFLG 
tOUES: 
ILF: 

.SBTTL 



.WORD 

.WORD 

.WORD 

.UORO 

.BYTE 

.BYTE 

.BYTE 

.BYTE 

.ASCII 

.ASCIZ 

.EVEN 

CONVERT 



*' .(SP) 
PC.»TYPEC 
♦7 . ICHARCNT 
9» 

(SP)* 
2$ 

atTKS 
10$ 

S»TKB. -(SP) 
♦177600. (SP) 
*»XOrF.(SP) 
102 « 

SITKS 
101$ 

8»TKB.(SP) 
•177600. (SP) 
#$XON,(SP) 
101 < 

(SP)* 

SITPS 
10» 

2(SP),8»TPB 

•CR.2(SP) 

1) 

$CHARCNT 

♦TYPEX 

«LF.2(SP) 

♦TYPEX 

(PC)* 

0 

PC 

177560 

177562 

177564 

17/566 

0 

2 

12 

0 

..J 1. 

<i2> 



J (REPLACE TAB WITH SPACE 
s jTYPE A SPACE 
J J BRANCH IF NOT AT 
sjTAB STOP 

mPOp space off stack 
i ;get next character 

tiCHAR IN KYBO BUFFER? 

mBr if not 

! :GET CHAR 

J J STRIP EXTRANEOUS BITS 
i : WAS CHAR X(FF 
t iBR IF NOT 

i tUAIT FOR CHAR 

;jGET CHAR 
J! STRIP IT 
I I WAS IT XON? 
nBR IF NOT 



iiFIX STACK 

SI WAIT UNTIL PRINTER IS READY 

ijLOAD CHAR TO BE TYPED INTO DATA REG. 
lis CHARACTER A CARRIAGE RETURN? 
{BRANCH IF NO 

lYES -CLEAR CHARACTER COUNT 
lEXIT 

J IS CHARACTER A LINE FEED? 
J BRANCH IF YES 
t COUNT THE CHARACTER 
{CHARACTER COUNT STORAGE 



jTTY KDB STATUS sMJDOOl 
jTTY KBO BUFFER ;MJDOOI 
;TTY PRINTER STATUS REG. ADDRESS 
iTTY PRINTER BUFFER REG. ADDRESS 
{CONTAINS NULL CHARACTER FOR FILLS 
{CONTAINS • OF FILLER CHARACTERS REQUIRED 
{INSERT FILL CHARS. AFTER A "LINE FEED- 
S-TERMINAL AVAILABLE" FLAG (BIT<07>«0« YES) 
{QUESTION MARK 
{LINEFEED 



jMJOOOl 
{MJOOOl 
sMJDOOl 
sMJDOOl 
J MJOOOl 
sMJDOOl 
I MJOOOl 
sMJDOOl 
sMJDOOl 
{MJOOOl 
sMJDOOl 
; MJOOOl 
; MJOOOl 
sMJDOOl 
sMJDOOl 
sMXOOl 

sMJDOOl 



BINARY TO DECIMAL AND TYPE ROUTINE 



{♦THIS ROUTINE IS USED TO CHANGE A 16-BIT BINARY NUMBER TO A 5-DIGIT 
s*SIGNED DECIMAL (ASCII) NUMBER AND TYPE IT. DEPENDING ON WHETHER THE 
s*NUMBER IS POSITIVE OR NEGATIVE A SPACE OR A MINUS SIGN WILL BE TYPED 
s*BEFORE THE FIRST DIGIT OF THE NUMBER. LEADING ZEROS WILL ALWAYS BE 
{♦REPLACED WITH SPACES. 
{ aCALL : 



N5 



GLOeAl. AREAS 



MAC 111 30AC10S2) 



KDJllA 


.MAC 03 -APR 84 


11;56 


3170 








5171 








3172 








3173 


011536 






3174 


011536 


010046 




3175 


011540 


010146 




3176 


01^542 


010246 




3177 


011544 


010546 




3178 


011546 


010546 




3179 


011550 


012746 


020200 


3180 


011554 


016605 


000020 


3181 


011560 


100004 




3182 


011562 


005405 




3183 


011564 


112766 


000055 


3184 


011572 


005000 




3185 


011574 


012705 


011752 


3186 


011600 


112725 


000040 


3187 


011604 


005002 




3188 


011606 


016001 


011742 


3189 


011612 


160105 




3190 


011614 


002402 




3191 


011616 


005202 




3192 


011620 


000774 




3193 


011622 


060105 




3194 


011624 


005702 




3195 


011626 


001002 




3196 


011630 


105716 




3197 


011632 


100407 




319e 


011634 


106516 




3199 


011636 


105005 




3200 


011640 


116665 


000001 


3201 


011646 


052702 


000060 


3202 


011652 


052702 


000040 


3203 


011656 


110225 




3204 


011660 


005720 




3205 


011662 


020027 


000010 


320b 


011666 


002746 




3207 


011670 


005002 




3208 


011672 


010502 




3209 


011674 


000764 




3210 


011676 


105726 




3211 


011700 


100005 




3212 


011702 


116665 


177777 


3213 


011710 


105015 




3214 


011712 


012605 




3215 


011714 


012605 




3216 


011716 


012602 




3217 


011720 


012601 




3218 


Oil 722 


012600 




3219 


011724 


104401 


011752 


3220 


011730 


016666 


000002 


3221 


011736 


012616 




3222 


011740 


000002 




3223 


011742 


025420 




3224 


011744 


001750 




5225 


011746 


000144 
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CONVERT BINARr TO DECIMAL AND TrPE ROUTINE 



SEO 0065 



{* 


nov 


NUM. -(SP) 


iiPUT THE BINARY NUMBER ON THE STACK 




TYPDS 




: tGO TO THE ROUTINE 


»TrPDS: 










MOV 


RO. -(SP) 


5 5 PUSH RO ON STACK 




MOV 


Rl.-(SP) 


J J PUSH Rl ON STACK 




MOV 


R2. -(SP) 


J J PUSH R2 ON STACK 




MOV 


R3. -(SP) 


1 (PUSH R3 ON STACK 




MOV 


R5.-(SP) 


i (PUSH RS ON STACK 




MOV 


«20200. -(SP) 


liSET BLANK SWITCH AND SIGN 




MOV 


20(SP).R5 


! (GET THE INPUT NUMBER 




BPL 


1< 


i iBR IF irtf>UT IS POS. 




NEG 


R5 


SI MAKE THE BINARY NUMBER POS. 




MOVB 


••-.l(SP) 


itMAKE THE ASCII NUMBER NEG. 


1(: 


CLR 


RO 


;sZERO THE CONSTANTS INDEX 




MOV 


«»DBLK.R3 


SI SETUP THE OUTPUT POINTER 




MOVB 


.(R3)* 


SI SET THE FIRST CHARACTER TO A B^ANK 


2(: 


CLR 


R2 


SI CLEAR THE BCD NUMBER 




MOV 


$DTBL(R0),R1 


iiGET THE CONSTANT 


3»: 


SUB 


R1.R5 


1 sFORM THIS BCD DIGIT 




BLT 


4$ 


siBR IF DONE 




INC 


R2 


IS INCREASE THE BCD DIGIT BY 1 




BR 


5$ 




4$: 


ADO 


R1.R5 


SI ADO BACK THE CONSTANT 




TST 


R2 


s s CHECK IF BCD DIGIT -0 




BNE 


5$ 


SI FALL THROUGH IF 0 




TSTB 


(SP) 


siSTILL DOING LEADING O'S? 




BMI 


7$ 


siBR IF YES 


5$: 


ASLB 


(SP) 


1 iMSO? 




BCC 


6* 


iiBR IF NO 




MOVB 


1(SP).-1(R5) 


II YES --SET THE SIGN 


6»: 


BIS 


«'0.R2 


11 MAKE THE BCD DIGIT ASCII 


7$: 


BIS 


«' .R2 


iiMAKE IT A SPACE IF NOT ALREADY A DIGIT 




MOVB 


R2.(R5)* 


liPUT THIS CHARACTER IN THE OUTPUT BUFFER 




TST 


(RO)* 


8 1 JUST INCREMENTING 




CMP 


R0.«10 


SI CHECK THE TABLE INDEX 




BLT 


2t 


isGO DO THE NEXT DIGIT 




BGT 


8$ 


siGO TO EXIT 




MOV 


R5.R2 


IiGET THE LSD 




BR 


6t 


isGO CHANGE TO ASCII 


8t: 


TSTB 


(SP)* 


IS WAS THE LSD THE FIRST NON ZERO? 




BPL 


9$ 


ssBR IF NO 




MOVB 


-KSP), -2(R5) 


SIYES--SET THE SIGN FOR TYPING 


9$: 


CLRB 


(R5) 


isSET THE TERMINATOR 




MOV 


(SP)*.R5 


ssPOP STACK INTO R5 




MOV 


(SP)*.R3 


1 iPOP STACK INTO R3 




MOV 


(SP)*.R2 


liPOP STACK INTO R2 




MOV 


(SP)».R1 


1 sPOP STACK INTO Rl 




MOV 


(SP)».RO 


isPOP STACK INTO RO 




TYPE 


.IDBLK 


tiNOU TYPE THE NUMBER 




MOV 


2(SP).4(SP) 


11 AD JUST THE STACK 




MOV 


(SP)».(SP) 






RTI 


1 sRETURN TO USER 


(DTBL : 


10000. 








1000. 








100. 







GLOBAL AREAS 
KOJllA.HAC 



HACUl S0A(1052) 
05AP(l-84 11:36 
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CONVERT BINARY TO OECIHAL 



ANO TYPE ROUTINE 



SEQ 0066 



S22*> 


011750 


000012 








10. 








5227 


011752 


000004 






lOBLK: 


.BLKU 


4 






S226 










.SBTTL 


BINARY 


TO OCTAL (ASCII) 


AND TYPE 




522<* 




















5250 




















5251 










i*THIS ROUTINE 


IS USED TO CMANGE A 16 BIT BINARY NUMBER TO A 6 DIGIT 


5252 










1 •OCTAL 


(ASCII) 


NUMBER ANO TYPE 


IT. 




5255 










i*ITYP0S-- -ENTER MERE TO SETUP 


SUPPRESS ZEROS AND NUMBER 0I- DIGITS 


TO TYPE 


5254 










t*CALL: 










•255 










t* 


MOV 


NUM,-(SP) 


1 (NUMBER TO BE TYPED 




5256 










I* 


TYPOS 




II CALL FOR TYPEOUT 




5257 










»• 


.BYTE 


N 


iiN-l TO 6 FOR NUMBER OF DIGITS TO 


TYPE 


3256 










»• 


.BYTE 


M 


iiM-l OR 0 




5259 










I* 






iil-TtPE LEADING ZEROS 




5240 










J* 






uO-SUPPRESS LEADING ZEROS 




5241 










I* 










5242 










i»ITyPON-- -enter mere to TYPE 


OUT UITM THE SAME PARAMETERS AS THE 


LAST 


5245 










i*ITYP0S OR ITYPOC 






5244 










i*CALL: 










5245 










!• 


MOV 


NUM. (SP) 


II NUMBER TO BE TYPED 




5246 










I* 


TYPON 




iiCALL FOR TYPEOUT 




5247 










I* 










5246 










i*ITYP0C- -ENTER MERE FOR TYPEOUT OT A 16 BIT NUMBER 




3249 










. *CALL : 










3250 










I* 


MOV 


NUM. (SP) 


II NUMBER TO BE TYPED 




3251 










I* 


TYPOC 




IlLALL rQH TYPcOUT 




5252 




















3253 


011762 


017646 


000000 




•TYPOS: 


MOV 


8(SP). (SP) 


iiPICKUP THE MODE 




5254 


011766 


116667 


000001 


000211 




MOVB 


1(SP).»0FILL 


II LOAD ZERO FILL SUITCH 




3255 


011774 


112667 


000207 






MOVB 


(SP)».»OMOOE»l 


iiNUMBER OF DIGITS TO TYPE 




3256 


012000 


062716 


000002 






ADD 


♦2.(SP) 


iiADJUST RETURN ADDRESS 




3257 


012004 


000406 








BR 


1 TYPON 






3256 


012006 


112767 


000001 


000171 


ITYPOC: 


MOVB 


♦l.lOflLL 


II SET THE ZERO FILL SUITCH 




3259 


012014 


112767 


000006 


000165 




MOVB 


*6.IOMOOE»1 


iiSET FOR SIX(6) DIGITS 




3260 


012022 


112767 


000005 


000154 


ITtPON: 


MOVB 


•5.10CNT 


iiSET THE ITERATION COUNT 




3261 


012030 


010346 








MOV 


R3. (SP) 


11 SAVE R3 




3262 


012032 


010446 








MOV 


R4, (SP) 
R5, (SP) 


11 SAVE R4 




3263 


012034 


010546 








MOV 


II SAVE R5 




3264 


012036 


116704 


0C0145 






MOVB 


«0M0OE*l.R4 


iiGET THE NUMBER OF DIGITS TO TYPE 




3265 


012042 


005404 








NEC 


R4 






3266 


012044 


062704 


000006 






ADO 


«6.R4 


tiSUBTRACT IT FQR MAX. ALLOWED 




3267 


012050 


110467 


000132 






MOVB 


R4,I0M00E 


II SAVE IT FOR USE 




3268 


012054 


116704 


000125 






MOVB 


»0FILL,R4 


iiGET THE ZERO FILL SWITCH 




5269 


012060 


016605 


000012 






MOV 


12(SP).R5 


IiPICKUP THE INPUT NUMBER 




3270 


012064 


005003 








CLR 


R5 


II CLEAR THE OUTPUT WORD 




3271 


012066 


006105 






11: 


ROL 


R*; 


iiROTATE MSB INTO "C" 




5272 


012070 


000404 








BR 


51 


II GO 00 MSB 




5273 


012072 


006105 






2t: 


ROL 


R5 


iiFORM THIS DIGIT 




3274 


012074 


006105 








ROL 


R5 






3275 


012076 


006105 








ROL 


R5 






5276 


012100 


010503 








MOV 


R5.R3 






3277 


012102 


006103 






51; 


ROL 


R3 


iiGET LS8 OF THIS DIGIT 




3278 


012104 


105367 


000076 






DECS 


lOMOOE 


iiTYPE THIS DIGIT? 




3279 


012110 


100016 








BPL 


71 


iiBR If NO 




3280 


012112 


042703 


177770 






BIC 


•177770. R5 


llGET RID OF JLiNK 




5281 


012116 


001002 








BNE 


41 


11 TEST FOR 0 





MAC 



C6 



b^ 1 04 



APR 84 10. 



cm AND TYPE 



SEQ no*>7 



5^6^ 


012120 


005 704 




3285 


012122 


001405 




3«?04 


012124 


005204 






012126 


052703 


000060 


3206 


012152 


052705 


000040 


3267 


012136 


110367 


000040 


5P88 


0l2142 


104401 


012202 


328'* 


012146 


105367 


000052 


3290 


012152 


003547 




3291 


012154 


002402 




3292 


0l2156 


005204 




3293 


012160 


000744 




3294 


012162 


012605 




3295 


012164 


012604 




V AX 

3296 


012166 


012605 




3297 


012170 


016666 


^%MM^%A ^ 

000002 


3298 


012176 


012616 




3299 


012200 


000002 




3300 


012202 


000 




3301 


012203 


000 




3302 


012204 


000 




3303 


012205 


000 




3304 


012206 


000000 




• Vac 

3305 








3306 








3307 
















3309 








331C 








3311 








3312 








3313 








3314 








3315 


012210 


0227 hi 


000176 




012216 


001074 




3317 


012220 


105777 


177272 


5316 


012224 


100071 






A « ^^^^ 

01222o 


4 4 ^^M^ 

117746 


177266 




A« V ^ 

012232 


042716 


177600 


3321 


A 4 1^ 

012236 


022726 


000007 


3322 


012242 


001062 






A« ^ M 

012244 


126727 


000514 


XX^A 


A 4 ^ 

012252 


001456 




3325 










012254 


4 A^ A A 4 

104401 


012755 


3327 


012260 


104401 


012742 




A 4 A 

012264 


016746 


165706 


33c7 


A 4 '7 A 

0122 70 


4 AA Mf\'\ 

104402 






vice 'C 




Olc <93 


S5S1 


012276 


005046 




5332 


012300 


C05046 




SS5S 


012302 


105777 


177210 


5SS4 


012506 


100575 




5335 








3536 


012510 


117746 


177204 


5537 


012514 


042716 


177600 



000004 



166630 



000001 



TST 


R4 


1 iS'jPPRESS THIS 0? 


BEQ 


5» 


I lOR IF YES 


INC 


R4 


mDON' T SUPPRESS ANYMORE O'S 


BIS 


4' 0,R3 


1 iMAKE THIS DIGIT ASCII 


BIS 


4' ,R3 


J (MAKE ASCII IF NOT ALREADY 


MOVB 


R3.8t 


II SAVE FOR TYPING 


TYPE 


.81 


iiGO TYPE THIS DIGIT 


OECB 


»OCNT 


1 iCOlMT BY 1 


BGT 


2t 


11 BR IF MORE TO DO 


BLT 


61 


1 1 BR IF DONE 


INC 


H4 


II INSURE LAST DIGIT ISN' ^ A BLANK 


BH 


2f 


1 |G0 DO THE LAST DIGIT 


MAt# 

nOv 


( 5K 3 ♦ , Ho 


1 iRESTORE R5 


MOV 


( SP ) • , R4 


APf T^W%P A A 

t 1 RESTORE R4 


10V 


C SP J » , R3 


nc c T AAc n v 

t iRESTORE R3 


HOW 




1 1 3C I 1 9 1 HUK ' \JK NL 1 UKN Imj 


MOV 


(SP)».(SP) 




RTI 




t iRETURN 


.BYTE 


0 


llSTORAGE FOR ASCII DIGIT 


.BYTE 


0 


II TERMINATOR FOR TYPE ROUTINE 


.BYTE 


0 


llOCTAL DIGIT COUNTER 


.BYTE 


0 


11 ZERO FILL SWITCH 


.WORD 


0 


iiNUMBER OF DIGITS TO TYPE 



4>: 



5»! 



7»! 



6(: 



8<: 

»OCNT: 
• OF ILL: 
lOMOOE: 

.SBTTL TTY input ROUTINE 



.ENABL 



LSB 



i*SOFTUARE SUITCH REGISTER CHANGE ROUTINE. 
l*ROUTINE IS ENTERED FROM THE TRAP HANDLER. AND WILL 
I •SERVICE THE TEST FOR CHANGE IN SOFTWARE SWITCH REGISTER TRAP CALL 
l*WHEN OPERATING IN TTY FLAG MODE. 



IGTSWR: 



191: 



71: 



CMP 


•SWREG.SWR 


nIS THE SOFT-SUR SELECTED? 


BNE 


15» 


II BRANCH IF NO 


TSTB 


StTKS 


11 CHAR THERE? 


BPL 


151 


lilF NO. DON'T WAIT AROUND 


Hove 


BITKB.-(SP) 


II SAVE THE CHAR 


BIG 


•♦C177.(SP) 


ilSTRIP-OFF THE ASCII 


CMP 


•7,(SP)» 


nIS IT A CONTROL G? 


BNE 


151 


II NO. RETURN TO USER 


CMP8 


IAUT0B.41 


It ARE WE RUNNING IN AUTO MODE? 


BEQ 


15« 


liBRANCH IF YES 


TYPE 


. icntlg 


iiECHO THE CONTROL -G (tG) 


TYPE 


. IMSUR 


iiTYPE CURRENT CONTENTS 


MOV 


SWREG.-(SP) 


iiSAVE SWREG FOR TYPEOUT 


TYPOC 




iiGO TYPE- -OCTAL ASCIKALL DIGITS) 


Type 


.tMNEW 


iiPROMPT FOR NEW SWR 


CLR 


-(SP) 


II CLEAR COUNTER 


CLR 


(SP) 


II THE NEW SWR 


TSTB 


BITKS 


II CHAR THERE? 


BPL 


71 


II IF NOT TRY AGAIN 


MOVB 


8ITKB. (SP) 


1 1 PICK UP CHAR 


BIC 


•♦C177,(SP) 


llMAKF IT 7 BIT ASCII 



D6 



3539 


















J J ~ 


















3S40 




















VAC n^K w 


021627 

VC Ave * 


000025 




9f : 


CUP 


( SP ) , #25 


jilS IT A CONTROL -U? 


SS4? 














lot 


1 1 BRANCH IF NOT 


3343 


012526 


104401 

062706 


01275^; 






TYPE 


. ICNTLU 


II YES. ECHO CONTROL -U ( tui 


5544 


012552 


000006 




201; 


ADO 


•6,SP 


iiIOiORE PREVIOUS INPUT 


3345 


012556 


000757 








BR 


191 


llLET'S TRY IT AGAIN 


SS46 


















5547 


















3349 


012540 


021627 


000015 




10* : 


CUP 


CSP),»15 


1 1 IS IT A <CR>? 


3349 


012544 


001022 








BNE 


161 


1 1 BRANCH IF NO 


5550 


012546 


005766 


000004 






TST 


4(SP) 


iiYES. IS IT THE FIRST CHAR'> 


3551 


012552 


001405 








BEQ 


111 


II BRANCH IF YES 


3352 


012554 


016677 


000002 


166464 




nov 


2( SP ) . asuR 


t iSAVE NEW SUR 


5555 


012362 


062706 


000006 




ll»: 


ADD 


«6.SP 


1 1 CLEAR UP STACK 


3354 


012566 


104401 


001405 




14t; 


TYPE 


, $crlf 


iiECHQ <CR> AND <LF> 


3355 


012572 


126727 


000567 


000001 




CnPB 


tINTAG.^1 


iiRE -ENABLE TTY KBD INTERRUPTS^ 


S556 


012400 


001005 








BNE 


15* 


1 {BRANCH IF NOT 


3357 


012402 


012777 


000100 


177106 




MOV 


#100.8*TKS 


ilRE-ENABLE TTf KBD INTERRUPTS 


3356 


012410 


000002 






151: 


RTI 




1 1 RE TURN 


3359 


012412 


004767 


176756 




161: 


JSR 


PC.ITYPEC 


1 lECHO CHAR 


3360 


012416 


021627 


000060 






CMP 


( SP ) . 460 


1 iCHAR < 07 


3361 


012422 


002420 








BLT 


16t 


1 1 BRANCH IF YES 


3362 


012424 


021627 


000067 






cnp 


(SP}.467 


itCHAR > 7? 


3363 


012450 


005015 








BGT 


161 


1 iBranch if yes 


S364 


012452 


042726 


000060 






BIC 


•60.(SP)« 


iiSTRIP-OFF ASCII 


3365 


012436 


005766 


000002 






TST 


2(SP) 


Ills THIS THE FIRST CHAR 


SS66 


012442 


001405 








BEQ 


171 


1 1 BRANCH IF YES 


3367 


012444 


006516 








ASL 


(SP) 


iiNO. SHIFT PRESENT 


3566 


012446 


006516 








ASL 




I 1 tHAR OVER TO HAKF 


3369 


012450 














* ■ onriM rnp mfu hmp 


3370 


012452 












?( <«P 1 




3371 


012456 


056616 


177776 






BIS 


-2(SP).(SP) 


11 SET IN NEU CHAR 


3372 


012462 


000707 








BR 


7t 


mGET THE NEXT ONE 


3373 


012464 


104401 


011552 




181 : 


TYPE 


.»QUES 


mTyPE ?<cr><lf> 


3374 


012470 


000720 








BR 


20* 


;i SIMULATE CONTROL -U 


3375 










.OSABL 


LSB 






3576 


















3377 


















5576 


















5579 










I* THIS 


ROUTINE 


WILL INPUT A SINCk.E CHARACTER FROM THE TTY 


5560 










1 ♦CALL : 








5581 












ROCHR 




II INPUT A SINC;LE CHARACTER FROM 


5562 












RETURN HERE 


llCHARACTER IS ON THE STACK 


5585 
















ilUlTH PARITY BIT STRIPPED OFF 


5564 
















5585 


















5586 


012472 


011646 






*RDChR: 


MOV 


(SP). (SP) 


1 iPUSH DOWN THE PC 


5587 


012474 


016666 


000004 


000002 




MOV 


4tSP).2(SP) 


11 SAVE THE PS 


5588 


012502 


105777 


177010 




11: 


TSTB 


S»TKS 


llUAIT FOR 


5589 


012506 


100575 








BPL 


1« 


iiA CHARACTER 


5590 


012510 


117766 


177004 


000004 




MOVB 


0*TKB.4(SP) 


llREAO THE TTY 


5591 


012516 


042766 


177600 


000004 




BIC 


•»C<177>,4(SP) 


llGET RID OF JUNK IF ANi 


5592 


012524 


026627 


000004 


000025 




CMP 


4(SP).»25 


Ills IT A CONTROL S? 


5 593 


012552 


001015 








BNE 


5* 


II BRANCH IF NO 



KOJllA.MAC 



eh 



MAClll SOAClCi^) 04 APR 
03 APR 84 11:36 



84 10:58 PAGE 69 
TTr INPUT ROUTINE 



SFQ 0069 



3394 


012554 


105 777 


176756 




2t: 


TSTB 


8$TKS 


iiUAIT FOR A CHARACTER 


3595 


012540 


100575 








BPL 


2» 


jiLOOP L»(TIL ITS THERE 


3396 


012542 


117746 


176752 






novB 


SfTKB. (SP) 


1 J GET CHARACTER 


5597 


012546 


042716 


177600 






BIC 


•♦C177.(SP) 


1 iMAKE IT 7 -BIT ASCII 


5598 


012552 


022627 


000021 






CMP 


(SP)» ,021 


Ills IT A CONTROL -Q? 


5599 


012556 


001566 








BNE 


2t 


1 iIF NOT DISCARD IT 


3400 


012560 


000750 








BR 


It 


11 YES. RESUME 


5401 


012562 


026627 


000004 


000140 


S>; 


CMP 


4(SP).«140 


Ills IT UPPER CASE? 


5402 


012570 


002407 








BLT 


4* 


J J BRANCH IF YES 


3405 


012572 


026627 


000004 


000175 




CMP 


4(SP).«175 


jsIS IT A SPECIAL CHAR? 


5404 


012600 


005005 








BGT 


4$ 


1 {BRANCH IF YES 


3405 


012602 


042766 


000040 


000004 




BIC 


«40.4(SP) 


llMAKE IT UPPER CASE 


5406 


012610 


000002 






4$: 


RTI 




ilGO BACK TO USER 


3407 
3408 










J ♦THIS 1 


ROUTINE 


WILL INPUT A STRING fROM THE TTY 


3409 










;*CALL: 








3410 










J* 


ROLIN 




II INPUT A STRING FROM THE TTY 


5411 










{♦ 


RETURN 


HERE 


llADDRESS OF FIRST CHARACTER WILL BE ON THE 


3412 
















1 {TERMINATOR WILL BE A BYTE OF ALL 0' S 


5415 
3414 


012612 


010546 






tROLIN: 


MOV 


R5, -CSP) 


1 tSAVE R5 


3415 


012614 


012705 


012720 




11 : 


MOV 


»$ 1 TtIN,R5 


1 {GET ADDRESS 


3416 


012620 


022705 


012750 




2(: 


CMP 


•$TTYIN»8. .R5 


1 iBlFFER FULL? 


3417 


012624 


101405 








BLOS 


4t 


1 |BR IF YES 


5418 


012626 


104410 








ROCMR 




S iGO READ ONE CHARACTER FROM THE TTY 


3419 


012650 


112615 








MOVB 


(SP)» ,(R5) 


! {GET CHARACTER 


5420 


012652 


122715 


000177 




10>: 


CMPB 


•177, (R5) 


1 1 IS IT A RUBOUT 


3421 


012636 


001005 








BNE 


5$ 


1 {SKIP IF NOT 


5422 


012640 


104401 


011552 




41; 


Type 


, IQUES 


1 1 TYPE A ' ?' 


5423 


012644 


000763 








BR 


1* 


jlCLEAR THE BUFFER AND LOOP 


5424 


012646 


111567 


000044 




St : 


MOVB 


(R5).9» 


tiECHO THE CHARACTER 


3425 


012652 


104401 


012716 






TYPE 


.9$ 




5426 


012656 


122723 


000015 






CMPB 


♦15. (R5). 


1 {CHECK FOR RETURN 


54 2 7 


012662 


001356 








BNE 


2< 


{(LOOP IF NOT RETURN 


5428 


012664 


105065 


177777 






CLR8 


-ICRS) 


1 {CLEAR RETURN (THE 15) 


5429 


012670 


104401 


011SS3 






TYPE 


.»LF 


{ {TYPE A LINE FEED 


5430 


012674 


012605 








MOV 


(SP)».R5 


1 {RESTORE R5 


5431 


012676 


011646 








MOV 


CSP),-(SP) 


{{ADJUST THE STACK AND PUT ADDRESS OF THE 


V A V t 

3452 


012700 


016666 


000004 


000002 




MOV 


4(SP).2(SP) 


{{ FIRST ASCII CHARACTER ON IT 


Til W 

34 33 


012706 


012766 


012720 


000004 




MOV 


•»TTYIN.4(SP) 




V A V A 

3454 


012714 


000002 








RTI 




1 {RETURN 


5455 


012716 


000 






9»! 


.BYTE 


0 


J {STORAGE FOR ASCII CHAR. TO TYPE 


5456 


012717 


000 








.BYTE 


0 


{ {TERMINATOR 


5457 


012720 


000010 






$TTYIN: 


.BLKB 


8. 


{{RESERVE 6 BYTES FOR TTY INPUT 


V ii V a 

3436 


012750 


052536 


005015 


000 


♦CNTLU: 


. ASCIZ 


/»U/<15><12> 


1 {CONTROL "U" 


3439 


012755 


136 


006507 


000012 


ICNTLG : 


.ASCIZ 


/tU/<15><12> 


{{CONTROL "G" 


5440 


012742 


005015 


055525 


020122 


IMSUR: 


.ASCIZ 


<15><12>/SWR • 


/ 


5441 


012750 


020075 


000 














vie IJO 








vnnc.w ; 


.ASCIZ 


/ NEW • / 




5445 


012760 


056440 


000040 












5444 


012764 


000 






>AUTOB: 


.BYTE 


0 II AUTO 


MODE FLAG 


3445 


012765 


000 






fINTAG: 


.BYTE 


0 II INTERRUPT MODE FLAG 


5446 










.SBTTL 


TRAP DECODER 




5447 


















5446 


















5449 










!*TMIS 


ROUTINE 


WILL PICKUP THE 


LOWER BYTE OF THE "TRAP" INSTRUCTION 



STACK 



GLOBAL ARfAS 
KOJllA.HAC 



F6 



MACm 50A(105?) 
05 APR 84 11:56 



OA APR 84 10:38 PAGE 70 
TRAP DECODER 



SEO 0070 



3450 
5451 
5452 
3455 



5478 
54 79 
5480 
5461 
5482 
5485 
5484 
5485 
5486 
5487 
5488 
5489 
5490 
5491 
5492 
5495 
3494 
3495 
5496 
3497 
5498 
3499 
3500 
3501 
3502 
3503 
3504 
3505 



J •AND USE IT TO INDEX THROUGH THE TRAP TABLE TOR THE STARTING ADDRESS 
•.•Of THE DESIRED ROUTINE. THEN USING THE ADDRESS OBTAINED IT WILL 
J •GO TO THAT ROUTINE. 



54^ 


01 97f><^ 
V L£ ' vv 






MOV 


RO, (SP) 


stSAVE RO 


X4SS 


VIC ' I V 






MOV 


2(SP).R0 


1 jGET TRAP ADDRESS 




VIC 1 t H 


WP • ^ V 




TST 


(RO) 


J J BACKUP BT 2 




Vic ' r O 


1 1 1 WW 




MOVB 


(RO).RO 


J jGET RIGHT BYTE OF TRAP 




vuvw 


wo 




ASL 


RO 


iiPOSITION FOR INDEXING 


3459 


vx^wc 


01 AAM 


01 XOPP 


MOV 


ITRPA0(RO),RO 


J J INDEX TO TABLE 




V» 






RTS 


RO 


i iGO TO ROUTINE 




























5465 






ssTHIS 


IS USE TO HANDLE THE "GETPRI" MACRO 


5464 














5465 


015010 




ITRAP2* 


MOV 


(SP).-(SP) 


1 iMOVE THE PC DOWN 


5466 


015012 


016666 


000004 000002 


MOV 


4CSP).2(SP) 


1 iMOVE THE PSU DOWN 


5467 


013020 


000002 




RTI 




tt RESTORE THE PSU 


5468 












5469 






.MACRO 


SET TRAP 


A.B.MSG 




54 70 








»«SET 


A,B.\<TRAP»»TRP 


>.\$TRP.<MSG> 


5471 






.NLIST 




5472 






♦TRP-lTRP.l 






5473 






.LIST 








54 74 






.ENDH 


SET TRAP 






5475 






.MACRO 


»»SET 


A.B.C.O.COMNT 




5476 






.IF EQ 


$TRP-1 




5477 






.SBTTL 


TRAP TABLE 





015022 
015024 
015026 
015050 
013052 



015010 
011162 
012006 
011762 
012022 



:«THIS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTINES CALLED 
;*BY THE "TRAP" INSTRUCTION. 

i ROUTINE 

$TRPAD: .WORD $TRAP2 
.ENDC 

.IIF NOr GNS. .NLIST 

A- C 
.lIF NOT GNS. .LIST 

B :tCALL-A 
.ENOM l$SET 
.MACRO TPMTRP 
I TERM-, (TRPAO 
.ENDM TRMTRP 
.SBTTL TRAP TABLE 

t*THlS TABLE CONTAINS THE STARTING ADDRESSES OF THE ROUTI^^S CALLED 
t*BY THE "TRAP" INSTRUCTION. 



TRAP»D(C) 



COMNT 



i 



$TRPAD: 



ROUTINE 

.UORD 
♦ TYPE 
»TYPOC 
I TYPOS 
ITYPON 



I TRAP2 

1 1 CALL "TYPE 

itCALL-TYPOC 

J J CALL "TYPOS 

; tCALL-TYPON 



TRAP* 1(104401) TT> TyPEOUT ROUTINE 

TRAP »2( 104402) TYPE OCTAL NUMBER (WITH LEADING ZERO*;'' 

TRAP. 3(104405) TYPE OCTAL NUMBER (NO LEADING ZE^^OS ) 

TRAP .4(104404) TYPE OCTAL NUMBER (AS PER LAST CALL ^ 



G6 



GLOeAL AREAS 
KOJllA.MAC 



5506 
5507 
5508 
5509 
5510 
5511 
5512 
5515 
5514 
5515 
5516 
5517 
5518 
5519 
5520 
5521 
5522 
5525 
5524 
5S2S 
5526 
5527 
5528 
5529 
5550 
5551 
5552 
5555 
5554 
5555 
5556 
5557 
5558 
5559 
5540 
5541 
5542 
5545 
5544 
5545 
5546 
5547 
5548 
5549 
5550 
5551 
5552 
5555 
5554 
5555 
5556 
5557 
5558 
5559 
5560 
5561 



015054 

015056 

015040 
015042 
015044 



MACtll S0A(1052) 
05 APR-84 11:56 

011556 

012260 



OA APP 84 
TRAP 



10:58 
TABLE 



PAGE 71 



SEQ 0071 



♦TYPOS j;CALL-TYPDS 
»GTSUR jiCALL-GTSUR 



TRAP. 5(104405) TYPE DECIMAL NUMBER (UlTM SIGN) 
TRAP ♦6(104406) GET SOFT-SUR SETTING 



012210 
012472 
012612 



.SBTTL 



»CKSUR ijCALL-CKSUR trap .7(104407) TEST FOR CHANGE IN SOTT-SUR 
»RDCHR tiCALL-RDCHR TRAP* 10( 104410) TTY TYPEIN CHARACTER ROUTINE 
IRDLIN jiCALL-RDLIN TRAP.IK 1044H ) TTY TYPEIN STRING ROUTINE 
APT COmuNICATIONS ROUTINE 



i I ■ 



015046 


112767 


000001 


000256 


lATYl: 


HOVB 


•I.IFFLG 


015054 


112767 


000001 


000226 


$ATY5: 


MOVB 


♦1. »MFLG 


015062 


000405 








BR 


$ATYC 


015064 


112767 


000001 


000220 


»ATY4: 


MOVB 


•I , IFFLG 


01.5072 








lATYC: 






015072 


010046 








MOV 


RO, -(SP) 


015074 


010146 








MOV 


Rl. -(SP) 


015076 


105767 


000206 






TSTB 


»MFLG 


015102 


001450 








BEQ 


5$ 


015104 


122767 


000001 


165706 




CMP6 


«APTENV.IENV 


015112 


001051 








BNE 


5$ 


015114 


152767 


000100 


165677 




BITB 


•APTSPOOL . lENVM 


015122 


001425 








BEQ 


5t 


015124 


017600 


000004 






MOV 


04(SP).RO 


015150 


062766 


000002 


000004 




ADD 


•2.4(SP) 


015156 


005767 


165656 




It: 


TST 


$MSGTYPE 


015142 


001575 








BNE 


11 


015144 


010067 


165644 






MOV 


RO. *MSGAD 


015150 


105720 






21: 


TSTB 


(RO)* 


015152 


001576 








BNE 


2t 


015154 


166700 


165654 






SUB 


tMSGAD.RO 


015160 


006200 








ASR 


RO 


015162 


010067 


165650 






NOV 


RO. IMSGLGT 


015166 


012767 


000004 


165604 




HOV 


«4,tMSGTYPE 


015174 


000415 








BR 


51 


015176 


017667 


000004 


000016 


51: 


MOV 


94(SP).4$ 


015204 


062766 


000002 


000004 




ADO 


«2.4(SP) 


015212 


016746 


164560 






MOV 


177776. -(SP) 


015216 


004767 


175740 






JSR 


PC.ITYPE 


015222 


000000 






41: 


.WORD 


0 


015224 








51: 






015224 


105767 


000062 




101: 


TSTB 


IFFLG 


015250 


001416 








BEQ 


121 


015252 


005767 


165562 






TST 


tENV 


015256 


001415 








BEQ 


12$ 


015240 


005767 


165554 




111: 


TST 


IMSGTYPE 


015244 


001575 








BNE 


111 


015246 


017667 


000004 


165526 




MOV 


84(SP).IFATAL 


015254 


062766 


000002 


000004 




AOO 


•2.4(SP) 


015262 


005267 


165512 






INC 


•MSGTYPE 


015266 


105067 


000020 






CLRB 


IFFLG 


015272 


105067 


000015 






CLR6 


ILFLG 


015276 


105067 


000006 






CLRB 


IMFLG 


015502 


012601 








MOV 


(SP)».R1 


015504 


012600 








MOV 


(SP)».RO 


015506 


000207 








RTS 


PC 



jTO REPORT FATAL ERROR 
iTO TYPE A MESSAGE 

5 TO ONLY REPORT FATAL ERROR 

I PUSH RO ON STACK 

jPUSH Rl ON STACK 

: SHOULD TYPE A MESSAGE? 

I IF NOT: BR 

s OPERATING UM)ER APT? 

I IF NOT: BR 

I SHOULD SPOOL MESSAGES? 

:IF NOT: BR 

{GET MESSAGE ADOR. 

I :BUMP RETURN ADOR. 
sSEE IF DONE U/ LAST XMISSION? 
J IF NOT: WAIT 
tPUT ADOR IN MAILBOX 
;FIND ENO OF MESSAGE 

J SUB START OF MESSAGE 
I GET MESSAGE LNGTH IN WORDS 
(PUT LENGTH IN MAILBOX 
;TELL APT TO TAKE MSG. 

iPUT MSG ADOR IN JSR LINKAGE 
:iBUMP RETURN ADDRESS 
jPUSH 177776 ON STACK 
tCALL TYPE MACRO 



:i SHOULD REPORT FATAL ERROR? 
J IF NOT: BR 
i RUNNING UNDER APT? 
I IF NOT: BR 
|FINIS^«D LAST MESSAGE? 
iIF NOT: WAIT 
tGET ERROR • 

1 1 BUMP RETURN AODR. 
iTELL APT TO TAKE ERROR 
I CLEAR FATAL FLAG 
I CLEAR LOG FLAG 
i CLEAR MESSAGE FLAG 
tPOP STACK INTO Rl 
iPOP STACK INTO RO 
•RETURN 



GLOBAL ARErtb 
KOJllA.HAC 



HACni 50 A( 1052) 
OS APR 84 ll:S6 



H6 



04 APR 84 10:38 PAGE 72 

APT CWMUNICATI0N5 ROUTINE 



SEQ 0072 



3562 


013310 


000 




3563 


013311 


000 




3564 


013312 


000 




3565 




013314 




3566 




000200 




3567 




000001 




3568 




000100 




3569 




000040 




3570 








3571 








3572 








3575 








S574 


015514 


005267 


165552 


5575 


015520 


001775 




3576 


015522 


005267 


165516 


5577 


015526 


021627 


001002 


5576 


015552 


101010 




5579 


015554 


012767 


007777 


5580 


015542 


012657 


001062 


5581 


015546 


012657 


001064 


5582 


015552 


000450 




5585 


015554 


017667 


000000 


5584 


015562 


011667 


000072 


3585 


015566 


062716 


000002 


5586 


015572 


017657 


000000 


5587 


015400 


104401 




5588 


013402 


000000 




5589 


015404 


062716 


000002 


5590 


015410 


104401 


001552 


5591 


015414 


016746 


000030 


5592 


015420 


104402 




5595 


015422 


104401 


001366 


5594 


013426 


016746 


000026 


3595 


015452 


104402 




5596 


015434 


122767 


000001 


3597 


013442 


001004 




3598 


013444 


004767 


177414 


5599 


013450 


000000 




5600 


013452 


000777 




3601 


015454 


000000 




3602 


015456 


000002 




3605 


015460 


000000 




3604 


015462 






5605 


015462 


OOOOIC 




5606 




000001 





liMESSG. FLAG 
t:LOG FLAG 
;jFATAL FLAG 



♦MFLG: .BYTE 0 
ILFLG: .BYTE O 
»FFLG: .BYTE 0 

.EVEN 
APTSIZE«200 
APTENV-OOl 
APTSPOOL-100 
APTCSUP-040 

I THIS ROUTINE WILL INCREMENT THE ERROR COUNT AND THEN PASS THE UNIQUE 
lERROR NUMBER TO THE APT ERROR ROUTINE TO BE REPORTED TO THE APT SYSTEM. 



000106 



000066 It: 



lERROR: 


INC 


tERFLG 


(INCREMENT ERROR FLAG 






BEQ 


tERROR 


iDON'T LET IT GO TO ZERO 






INC 


ERRCNT 


(INCREMENT THE ERROR COUNT 






CMP 


(SP). •lOOS 


lis ERROR FROM VECTOR AREA 






BHI 


It 


:IF YES THEN 






MOV 


•7777, 5t 


J REPORT AN UNEXPECTED TRAP 






MOV 


(SP)*.a«SAVSPl 


(SAVE UNEXPECTED TRAP DATA 






MOV 


(SP)*.8«SAVSP2 


lANO RESTORE SP 






BR 


2t 


sELSE 




It: 


MOV 


8(SP). 5t 


(REPORT UNIQUE ERROR NUMBER TO APT 




MOV 


(SP).lOlt 


'SAVE ERROR PC 






ADO 


♦2. (SP) 


IgET OVER UNIQUE ERROR NUMBER FOR 


RETURN 


loot: 


MOV 
TYPE 


8(SP).8«102t 


(TYPE ERROR MESSAGE 




I02t: 


.UORD 


0 








ADD 


•2.(SP) 


(GET OVER ERROR MESSAGE 






TrPf 


.ERRl 


IpuSH UNIQUE ERROR NUMBER ON THE 






MOV 


5t.-(SP) 


STACK 




TYPOC 




(TYPE OCTAL ERROR NUMBER 






TYPE 


.ERR2 


(PUSH ERROR PC ON THE STACK 






MOV 


lOlt.-(SP) 






TYPOC 




(TYPE THE ERROR PC 

(CHECK TO MAKE SURE WE'RE IN APT 




2t: 


CMPB 


#APTENV.tENV 


MODE 




BNE 


5t 


(IF YES THEN 






JSR 


PC. tATV4 


(GO REPORT ERROR TO APT 




3t: 


.WORD 


0 


(STORAGE FOR ERROR NUMBER 




4t: 


BR 


4t 


(LOOP HERE AFTER REPORTING ERROR 


TO APT 


St: 


HALT 
RTI 




(IF NOT APT THEN HALT 
(ALLOW RECOVERY FROM HALT 




101 1: 


.WORD 


0 






tPATCH: 


'.BLKU 


10 






.ENO 











16 



GLOBAL 


AREAS MAC « 1 1 


SOA( 1052 1 


04 APR 


84 10 • 38 PAGE 74 


KDJllA 


MAC 03 -APR 84 


11 : 36 




CROSS REFERENCE TABLE 


ABASE ' 


OOOOOO 


625 






ACOWl * 


oooooo 

www 


625 






AC0U2 ■ 


oooooo 


625 






ACPUOP* 


oooooo 


625 


640 




ADDL SB 


001070 


673^ 


2537* 


2596 2602 2613* 


AOOUO • 


OOOOOO 


625 






AOOUl • 


OOOOOO 


625 






ADDulO* 


OOOOOO 


625 






AODUll • 


oooooo 


625 






A00W12* 


OOOOOO 


625 






AOOUl 3' 


OOOOOO 


625 






A0DU14' 


OOOOOO 


625 






A00U15* 


OOOOOO 

^^^r ^^^^^^^^ 


625 






A00U2 ■ 


OOOOOO 


625 






ADOWS ■ 


OOOOOO 


625 






A00U4 * 


OOOOOO 


625 






AOOWS ■ 


OOOOOO 


625 






A00U6 ■ 


oooooo 


625 






A00W7 • 


oooooo 


625 






A00U8 ■ 


oooooo 


625 






A00U9 - 


oooooo 


625 






AOEVCT* 


oooooo 


625 


631 




AOEvn ■ 


oooooo 


625 






AENV • 


oooooo 


625 


636 




AENVn ■ 


oooooo 


625 


637 




ArATAL' 


oooooo 


625 


628 




ALLCTR 


001056 


667* 


2701* 


2705* 2717* 2768* 


AHAORl- 


oooooo 


625 






AnAOP' - 


oooooo 


625 






AHAORS- 


oooooo 


625 






AnADf)4> 


oooooo 

wwww 


625 






AriAnsi ■ 


oooooo 


625 






AnAns2- 


oooooo 


625 






AnAHS3« 


oooooo 


625 






AHAHS4« 


oooooo 


625 






AnSGAD* 


oooooo 


625 


63S 




AMSGLG- 


oooooo 


625 


634 




AMSGTY- 


oooooo 


625 


627 




AnTYPl- 


oooooo 


625 






AnTYP2- 


oooooo 


625 






AHTYP3- 


oooooo 


625 






AMTYP4- 


oooooo 


625 






APASS ' 


oooooo 


625 


630 




APRIOR- 


oooooo 


625 






APTCSU- 


000040 


3084 


35690 




APTENV« 


000001 


896 


3077 


3525 3567* 3596 


APTSFT 


001640 


8960 


1282 


1376 1386 1395 






1699 


1791 


1816 1894 21 75 






2746 


2755 




APTSIZ« 


000200 


945 


35660 




APTSP0> 


000100 


3079 


3527 


35680 


ASUREG- 


002000 


544* 


625 


638 


ATESTN- 


oooooo 


625 


629 




AUNIT - 


oooooo 


625 


632 




AUSUR - 


oooooo 


625 


639 




AVECTl. 


oooooo 


625 







USER SYMBOLS 



2614 



SEQ 0073 



1406 
2194 



1495 

2217 



1509 
2234 



1522 
2252 



1596 
2261 



1650 
2560 



1670 
2595 



1679 
2405 



J6 





ARE Ab n«C ' 1 1 


30AC 1052 ) 


/\Ji AAA 

O* MPH 


64 10: 


38 PAGE 


75 
















SEQ 0074 






11 : 3o 




CROSS REFERENCE 


T AQl ET 


USER SYhBQLS 












nVfcC Ic" 




OcO 




























AA1AC3 
VV3V3C 


1 3iLO 


f 30AA 
lCT*V 
























DtVcNI • 


1 77CA£ 


d5ow 


























DuN 1 LP 


AA^ 7AA 


VA 

<:333» 


^JLA7 

eMI f 
























D T TA « 


AAAAA 1 


7 A 
33 f » 


























Hi 1 UU ■ 


AAAAA1 


SA 7 A 
3* f » 


TQ 7 

33 ' 


1487 


1501 


1 Q 1 A 


1527 


1573 




1'»d4 


2068 


2339 


2530 


2696 


O T TA1 a 




SA£A 


330 


2342 


2350 


OTAA 


2823 


2904 














AAAAAA 
000004 




TCC 

333 


1122 


1190 




1695 


2164 






2737 


2862 


2938 






AAAA 1 A 


TAA A 


TQA 
33" 


1134 


1196 


1 3AT 


1373 


1383 


140*f 


1492 


1506 


1518 


1581 


164 7 






l003 


lo ft> 


1692 


1788 


1 A 1 T 

1013 


1891 


2258 




2592 


2740 


2854 


2925 


2956 


D T TAA ■ 


AAAA 3 A 


TA VA 


TQT 

333 


2191 


2231 


33AO 

ccA't 












0 1 1 v3 " 


AAAAA A 


XA 3A 


TQ3 

33C 


2172 


2214 






















AAA 1 AA 


TA 1 A 
3# IW 


TQ1 

331 


1786 


1809 


1 A 1 1 
lOl 1 


1966 


















AAA3AA 


TAAA 
5*0» 


TQA 

33U 


1368 






















Q T T AA « 


AAAA AA 


TTOA 

337V 


TAQ 
3#7 


905 


1828 


1 AAC 
1903 


1983 


2690 














Q T T AO ■ 

D 1 1 ■ 


AA5 AAA 


TXAA 

33o« 


TAA 
3#0 


1645 


2523 


3701 


















Q T T 1 ■ 
Dill ■ 


AAAAA3 


TCILA 
330W 


























n T T 1 A • 
Ol 1 lU ■ 


AA3AA^i 


33 r » 


























Q T T 1 1 a 
Dl 1 11 ■ 


AAAAA/V 
OV#Wv 


330« 


























Dl 1 1^ • 


A1 AAAA 
UlOvOU 


333V 


























Ol 1 U ■ 


A3AAAA 


33^V 


























Ol 1 1* ■ 


AAAAAA 

04vWv 


333v 


























fiT T 1 C . 
Ol 1 13 ■ 


1 AAAAA 
lOOOOO 


33«v 


1 AAA. 


1490 


1500 


1 CAT 

13U3 


2803 


2818 














Dl 1 «r ■ 


AAA^U\A 


333V 


























Q T T X a 
D 1 I J • 


AAAA1 A 


T^AA 
33*v 


























D 1 1 4 ■ 


AAAAAA 

00002W 


3339 


























RT a 

Oils * 


AAAAJt A 

000040 


33CV 


























RT a 

D 1 1 D * 


AAA 1 AA 


T^l A 


























RT T 7 a 
OX 1 ' ■ 


AAA3AA 


TCAA 
3309 


























RT TA a 


AAAAAA 


TAOA 


























RT TQ m 

DX 1 7 ■ 


AAf AAA 


XAAA 
340v 


























BOAROT* 


AAAAA 1 
WWvl 


Iv 


^A7 

30 f 


693 


7S0 




















RpTuCf. 


AAAA1 A 
vWVlH 


30*v 




























(V)XX7A 


X30 f 


1 A 

1AC3V 
























went i ■ 


^ A ^ 4 4 A ^ 


1 


31 Q 
Cl7 


244 


587 


&73 
O f e 


696 


709 


7 t ^ 

f ID 


^ -DO 


7C f 

f Dl 


oc^ 
952 


954 


969 


rro a 




TAAA 

3040 


TTAC 

3303 
























f 77 7A£. 
Iff f *o 


C V AA 

530# 


905* 


910* 


966* 


1002* 


1052* 


1053* 


1054 


1056 


1070 


1072* 


1122* 


1125* 






\ % TA A 


1 % A3a 


1190* 


1193* 


1 TXAa 

13oO* 


1418* 


1579* 




1 7AA A 

1 f 04* 


1 703* 


% T a£ A. 

1756* 


% a/\AA. 

1609* 


4 A 4 4 A 

ISll* 






lOeo* 


1 1UI7 A 
XOO f • 


1889* 


1905* 




1968* 


1985* 




3A7A A 
CO f ** 


2059* 


2l04* 


2lo f * 


<fe:Ot>* 






ccO^* 


3TA Oa 


2350* 


2580* 


3A 4 A A 


2531* 


2618* 




^A^T A 

2823* 


2904* 


2994* 








TQ1 AA 

331\lv 




























AA| AAA 




























rpp Of rim 


1 7 7 7i^ 
Iff fOO 


CTTa 

333# 


AAA ^ 


1007* 


1145* 


1211* 


1289* 


1420* 




4 £ A V .A. 

1603* 


1706* 


t O V A. 

1652* 


f AAA A. 

1906* 


1 AOC ^ 

190D» 


roi ITQT a 




2094« 


2266* 


2418* 


2621* 




















f%AAAA1 


1# 




587 


690 


730 


968 


5040 














ro a 


^WIAAI C 
UUUU13 


272* 


709 


715 


726 


750 


732 


755 


3040 


5049 


3140 


3152 






rot r a 


AAA3AA 


273# 


VAAA 

3094 


3152 






















U ■ D 1 XU 


'JU30 f D 


1 CTCA 
l333# 


























U 1 9 1 11 


OU*v3c 


1 AAAA 

loo^ 


























e 1 3 1 Ic 


AAAT7A 
OU#3 f * 


4 7 4 « A 
1 f ll» 


























U 1 3 1 13 


(WA 71 & 

f Id 


1 AAAA 


























CTST15 




17CXV 


























CTST17 


005316 


201 3« 


























CTST2 


002312 


1022* 


























CTST20 


005526 


2101* 


























CTST21 


006146 


22 75# 
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3626* 










rT^ t;>4 


O07720 


^785* 














1078# 














1 156* 










U 1 9 1 ^ 


















1312* 










CT5T7 


00340? 


1432* 








2954 


CUP ADO 


001104 


679* 


2950* 


2951* 


2952* 


CURDAT 


001076 

WAV • w 


676* 










DAP ABO 

%^ n r ^^^^^^ 


004706 


1774 


1837* 








DATRAM* 


u 


715 


953 


2423 






CCOUNT 


001054 


666* 


2552* 


2553 


2562 


2578 


DDISP ■ 


177570 


279* 


663 


926 






DISPLA 


001050 


663* 


926* 


934* 






DTSPRE 


000174 


573* 


934 


925 








1 77570 


278* 


662 






CMTucr s 


000030 

WW JV 


367* 


914* 


915* 










1267 


1267* 










007PP2 


2614* 










ENOTLP 


007172 


2554 


2606* 








ERRCNT 


001044 


661* 


3576* 








ERRhSG 

W ■ i 


001325 G 


726* 


869 


1015 


1062 


1068 






1389 


1398 


1409 


1416 


1428 






1780 


1794 


1800 


1807 


1819 






2008 


2080 


2086 


2178 


2185 






2S65 


2371 


2400 


2408 


2560 






2929 


2943 


2965 






ERRNUK' 


WW A 


543* 




870* 


1013 


1016* 






1151 


1154* 


1196 


1201* 


1205 






1390* 


1396 


1399* 


1407 


1410* 






1523 


1526* 


1597 


1600* 


1651 






1781* 


1792 


1795* 


1798 


1801* 






1895 


1696* 


1901 


1904* 


1914 






2009* 


2078 


2061* 


2084 


2087* 






2218 


2221* 


2224 


2227* 


2235 






2366* 


2369 


2372* 


2398 


2401* 






2758 


2761* 


2847 


2850* 


2856 






2930* 


2941 


2944* 


2963 


2966* 


ERROur 


002302 


1001 


1012* 








ERRTN ■ 


000000 


541* 










ERRVEC- 


000004 


360# 


923 


924* 


935* 




ERRl 


001352 


730* 


3590 








ERR2 


001366 


732* 


3593 








EXPO AT 


001034 


657# 










EXPTBL 


003070 


1265 


1301* 








EXIST 


007236 


2525 


2615 


2617* 






TLAG 


001042 


660* 


2796* 


2798* 


2840 


2901 


TLOO 


010134 


2638* 


2889 


2896 






PLOOA 


010174 


2646 


2852* 








TLOl 


010334 


2692 


2896* 








FlOIA 


010414 


2911* 


2979 








FLOIB 


0104S4 


2918 


2923* 








rnPARR 


002550 


1119 


1150* 








FPPTST- 


000001 


1* 


244 


587 


688 


696 


rPVEC ' 


000244 


527* 











l<6 

«0 O075 

USER SYMBOLS 



2586 


2591* 


2718* 


2 lb?* 










1132 


1140 


1153 


1200 


1207 


1219 


1265 


1379 
















170P 


1826 


1840 


1697 


1903 


1916 


1979 


1994 


2002 


2197 


2203 


2220 


2226 


2237 


2243 


2255 


2264 


2572 


2751 


2760 


2849 


2858 


2873 


2686 


2921 


1060 


1063* 


1066 


1069* 


1130 


1133* 


1138 


1141* 


1208* 


1217 


1220* 


1283 


1286* 


1377 


1380* 


1587 


1414 


1417* 


1426 


1429* 


1496 


1499* 


1510 


1515* 


1654* 


1671 


1674* 


1680 


1683* 


1700 


1705* 


1778 


1805 


1808* 


1817 


1820* 


1824 


1827* 


1838 


1841* 


1917* 


1977 


1980* 


1992 


1995* 


2000 


2005* 


2006 


2176 


2179* 


2183 


2186* 


2195 


2198* 


2201 


2204* 


2238* 


2241 


2244* 


2253 


2256* 


2262 


2265* 


2365 


2406 


2409* 


2558 


2561* 


2570 


2573* 


2749 


2752* 


2859* 


2871 


2874* 


2884 


2887* 


2919 


2922* 


2927 


2912 
















697 


730 


751 


968 


3040 









L6 
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FSTAOO 


001100 


677# 


2546» 


2549* 


2551 


2592 


















FUOSEO 


001066 


672# 


2536* 


2544 


2594 


2608 


2610* 


2612* 














GNS 




572 


3502 


3503 


3504 


3505 


3506 


3508 


3510 


3511 


5512 








GOOD AO 


001110 


661« 


























GTSWR - 


104406 


961 


35084 
























MITMIS* 


177752 


532# 


1004* 


1196 


1203 


1298 


1373 


1383 


1402 


1492 


1506 


1518 


1581 


1647 






1656 


1676 


1685 


1788 


1813 


1891 


2172 


2191 


2214 


2251 


2249 


2258 


2557 






2392 


2720 


2844 


2854 


2868 


2916 


2925 


2937 










MMPARR 


002702 


1187 


12164 
























HT 


000011 


270* 


3092 


3150 






















HYBRID' 


000001 


19 


549 


684 


691 


872 


952 


1008 


1146 


1212 


1261 


1290 


1575 


1585 






1394 


1405 


1421 


1494 


1508 


1521 


1530 


1595 


1604 


1649 


1669 


1678 


1698 






1707 


1790 


1815 


1833 


1893 


1909 


1986 


2095 


2174 


2193 


2216 


2255 


2251 






2260 


2269 


2359 


2394 


2404 


2419 


2622 


2745 


2754 


2778 


5012 


5028 


5040 






3054 


3305 


3513 


















INITMM 


001412 


76 7# 


1484 


1569 


1959 


2336 


2526 


2694 


2802 












INTERR 


005244 


1971 


19904 
























INTRPC 


005166 


19''3# 


1998 
























lOTVEC" 


000020 


365# 


949* 


950* 






















KOPARO* 


172360 


508« 


























K0PAR1> 


172362 


5090 


























K0PAR2- 


172364 


510# 


























KDPAR3" 


172366 


511« 


























KDPAR4- 


172370 


512« 


























K0PAR5" 


172372 


513# 


























K0PAR6' 


172374 


514« 


























KDPAR7- 


172376 


515# 


























KOPDRO' 


172320 


486« 


























KOPORl" 


172322 


487« 


























K0PDR2" 


1 72324 


488« 


























K0P0R3" 


172326 


489« 


























KDP0R4- 


1 72330 


490« 


























K0PDR5' 


1 72332 


491# 


























K0PDR6" 


172334 


492« 


























K0P0R7" 


172336 


493« 


























KIPARO" 


172340 


497# 


























KIPARl* 


172342 


498« 


























KIPAR2* 


172344 


499# 


























KIPAR3- 


172346 


500* 


























K IPAR4 • 


172350 


501* 


2805* 
























KIPAR5" 


172352 


502* 


2838* 


2842* 


2911* 


2914* 


















KIPAR6" 


172354 


503* 


1570* 


1961* 


2066* 


2337* 


2529* 


2698* 


2704* 


2715* 


2767* 


2817* 


2899* 


2905 


KIPAR7- 


172356 


504« 


























KIPDRO" 


172300 


475# 


1486* 


1490* 


1500* 


1S03* 


2818* 
















KIPDRl" 


172502 


476# 


























K IP0R2 ■ 


172304 


477* 


























KIP0R3" 


172306 


478« 


























K IP0R4 • 


172310 


479* 




























172512 


480# 


2803* 
























KIPDR6- 


172314 


4814 


























KIP0R7- 


172316 


482* 


























LOPARS 


001554 


768 


770 


772 


774 


776 


778 


6124 














LDPORS 


001604 


780 


782 


784 


786 


788 


790 


8414 














LF 


000012 


2714 


709 


715 


726 


750 


752 


755 


5040 


5049 


5144 


5152 






LOOP IN 


001060 


6684 


1263* 


1266 


1278* 


2697* 


2771* 
















LOUAOD 


001106 


6800 


2693* 


2700 


2711 


2770* 



















M6 
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LSTAOO 001102 
MHUTST- 000001 
MMVEC • 000250 
MSER • 17 7744 



nSGl 

nsG2 
mvOEL- 

NEUAOO 

NEUDAT 

0PMSG2 

OPMSGS 

PARRAM 

PIRQ 

PIRQVE 

PRO 

PRl 

PR2 

PR3 

PR4 

PR5 

PR6 

PR 7 

PS 

PSU 

PURVEC 

QBUSEX 

RAMPAR 

RBUF 

RCSR 

ROCHR 

ROLIN 

RECOAT 

RESTAR 

RESVEC 

RITEOA 

SAVSPl 

SAV SP2 

SOPARO 

SDPARl 

S0PAR2 

S0PAR5 

S0PAR4 

S0PAR5 

S0PAR6 

S0PAR7 

SOPDRO 

SOPOR I 

S0P0R2 

SOPORS 

S0P0R4 

S0P0R5 

S0P0R6 

SOPOR 7 

SMMOO 



011054 

011155 

000001 

001114 

001074 

001162 

001224 

000001 

177772 

000240 

000000 

000040 

000100 

000140 

000200 

000240 

000500 

000540 

177776 

177776 

000024 

000001 

001650 

177562 

177560 

104410 

104411 

001056 

002176 

000010 

001072 

001062 

001064 

172260 

172262 

172264 

172266 

172270 

172272 

172274 

172276 

172220 

172222 

172224 

172226 

172250 

172252 

172254 

172256 

000001 



676* 
1# 
576# 
5510 
1796 
2620* 
5014 
5024 
1* 
685« 
675* 
709* 
715* 
!♦ 
277# 
571» 
294* 
295# 
296« 
297« 
298* 
299* 
500« 
501« 
274# 
275* 
566« 
1« 
666* 
558« 
557* 
5418 
55124 
6584 
9654 
5614 
6744 
6694 
6704 
4644 
4654 
4664 
4674 
4684 
4694 
4704 
4714 
4424 
4434 
4444 
4454 
4464 
4474 
4484 
4494 
14 



2547* 
244 

902* 
1802* 
2776* 
50404 
50494 
1921 



952 
955 
2015 



275 



689 
999 



55114 

2566* 
5057 



5580* 
5581* 



2550* 
587 

1005* 
1805 



2015 



2574 
687 

1006* 
1822 



709 

1144* 
1851* 



750 

1210* 
1886* 



751 

1288* 
1907* 



952 

1419* 
1969* 



954 

1528* 
1984* 



968 

1602* 
2004 



5040 

1705* 
2095* 



5S05 

1775* 
2267* 



SEQ 0077 



1776 
2417. 



5001 
126^ 



2567 



1485 



2549 



2559 



2715 



2401* 2402 



614 



5040 



GLOeAL 


AREAS MACni 


3UHi iUDc } 


f\A ADD 


-84 10: 


58 PAGE 


TO 
#7 


KOJllA.nAC 05-APR-e4 


11* 
11 * 




CROSS REFERENCE 


TADI C 

1 nDUC 


SIPARO- 


172240 












SIPARl- 


172242 


*• w 










SIPAR2' 


172244 












SIPAR3- 


172246 












SrPAR4> 


172250 


A^IA 










SIPAR5- 


1722S2 


A^AA 










SIPAR6- 


172254 


A^QA 










SIPAP7' 


172256 


Af^A 










SIPOWO- 


172200 


•t Jlw 










siponi- 


172202 


AXOA 










SIP0«2» 


172204 


A%%A 










SIP0R3- 


172206 


A'KAA 










S1P0«4. 


172210 


AX^A 










SIP0R5- 


172212 












SIP0R6- 


172214 


4374 










SIPDR7" 


172216 












SKIPID 


010760 




Owl. 








SLOCOO 


001030 


6^3d 




1773* 


1829 


1 AM* 










2775 


2799* 




SLOCOl 


001032 












SOFTER 


001116 


61144 




901* 


1008* 


1146* 








?09^* 

fcV7 J* 


2269* 


2419* 


962?* 


SOFTRE 


001120 




TWO 


1261* 


1375* 


lOw J* 










1790* 


1815* 












2754* 






SRO 


177572 






1487* 


1489* 










POM* 


208S* 


2092* 


P3M* 


SRI 


177574 


SHI* 










SR2 


177576 












SRS 


172516 




cUO » • 


2338* 


2695* 




STACK » 


001000 












START 


001716 


3 f V 


^7A 


909# 






STBOT - 


001000 












STKLMT- 


177774 


c fOv 










SUR 


001046 






927 


933* 


OA7* 


SUREG 


000176 




QVV 


959 


3315 




SUO ■ 


000001 












SWOO - 


000001 




V30 








SUOl * 


000002 




VM 








SU02 - 


000004 




V97 








SU03 ■ 


000010 












SU04 ■ 


000020 












SU05 ■ 


000040 




V9A 








SU06 - 


000100 


va 


V9V 








SU07 • 


000200 




V93 
Pec 








SW08 - 


000400 




V31 
del 








SU09 « 


OOlOOO 




V9A 








SUl 


000002 












SUlO ' 


002000 












SUll - 


004000 












SU12 - 


010000 


307» 










SU13 - 


020000 


306« 










SUM > 


040000 


305« 










SW15 • 


100000 


3049 










SU2 


000004 


3274 










SU3 


000010 


3264 











N6 

USER SYMBOLS 



1906 


1970* 


1981 


2064* 


1212* 


1290* 


1421* 


1530* 


2778* 








1394* 


1405* 


1494* 


1508* 


2174* 


2193* 


2216* 


2233* 


1504* 


1514* 


1520* 


1527* 


2415* 


2530* 


2619* 


2696* 



959 2S2S 2690 2791 



SEQ 0078 



2091 


2348* 


2416 


2538* 


1604* 


1707* 


1833* 


1909* 


1521* 
2251* 


1595* 
2260* 


1649* 
2559* 


1669* 
2594* 


1573* 
2774* 


1590* 
2609* 


1601* 
2995* 


1964* 



2794 3315 3352* 
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USER SYMBOLS 



SEQ O079 



SW4 

SW5 
SW6 
SU7 

sua 

SU9 

TACAOl 

TAGAD2 

TAGRAn* 

TAPA60 

TBITVE- 

TKVEC • 

TPVEC • 

TRAPVE- 

TRTVEC- 

TSENO 

T5TA00 

TSTLOC 



TSTLUP 

TSTl 

TSTIO 

TSTll 

TST12 

TST15 

TST14 

TST15 

TST16 

TST17 

TST2 

TST20 

TST21 

TST22 

TST5 

TST4 

TST5 

TST6 

TST7 

TtPOS 

TtPE 

TTPOC 

TtPON 

TfPOS 

UOPARO 

UDPAftl 

U0PAR2 

UDPAR5 

UDPAR4 

OOPARS 

U0PAR6 

U0PAR7 

'JOPORO 



000020 
000040 
000100 
000200 
000400 
001000 
010672 
010704 

***••• u 

005062 
000014 
000060 
000064 
000054 
000014 
010716 
001112 
001122 



006656 
002210 
005676 
004052 
004574 
004716 
005072 
005516 
005526 
006146 
002512 
006542 
007274 
007720 
002414 
002556 
002710 
005106 
005402 
104405 
104401 

104402 
104404 
104405 

177660 
177662 
177664 
177666 
177670 
177672 
177674 
1776 76 
177620 



525* 
5244 
5254 
5224 
5214 
5204 
2624 
2908 
715 
1885 
5624 
5694 
5704 
5684 
5654 
2980 
6824 
6954 
1569 
1505 
1810* 
2229 
25414 
9964 
1551 
1605 
1708 
1854 
1910 
1987 
2096 
2270 
1009 
2420 
2625 
2779 
11174 
1147 
1215 
1291 
1422 
5026 
952 
5575 
3529 
55054 
55044 
4204 
4214 
4224 
4254 
4244 
4254 
4264 
427* 
5984 



2895 
2978 
955 
19154 



29854 
29884 

2776 



2781 



2785 



~ Aw* 


917* 






















29944 


























1123* 


1 127 


1135 


1145* 


1)88* 


1191* 


1195 


1202 


1270 


1273 


1275 

AC ' -J 




1S72 


1381* 


1382* 


1392 


1400* 


1401* 


1412 


1485* 


1488* 


1491 


A JVC 


1515 


1643 




1646 


1655* 


1658 


1675 


1684* 


1687 


1 782* 


1 785* 


A ' w ' 


181? 


1AM* 


1890 


1962* 


1967* 


1975 


2163* 


2165* 


2170 


2188 


2207* 


Cc AC 


7?46 


9248* 


2357 




















PAt 1 
CO XX 
























15674 


1595 






















16414 


1649 


1669 


1676 


1696 
















17714 


1790 


1815 




















18784 


1695 






















19574 
























20614 
























21614 


2174 


2195 


2216 


2255 


2251 


2260 












25544 


2559 


2594 


2404 


















10494 
























25214 
























26f>84 


2745 


2754 




















27694 
























11854 
























12604 


1281 






















15654 


1575 


1585 


1594 


1405 
















14814 


1494 


1508 


1521 


















55064 






















5554 


955 


3014 


5024 


5027 


5097 


5219 


5288 


5526 


5527 


5550 


3545 


5422 


5425 


5429 


55024 


5567 


5590 


5593 












55034 


5592 


5595 





















LjLOBAi 


4Rt As MAC Ml 


50A( lObP ) 


04 APfl 






"AC 05 APR 84 


11 : 36 


c8oss^ 




1 7 7622 


5994 






\JOPDR2' 


177624 


4004 








177626 


4014 






UDPi)n4 • 


177630 


4024 








1 7 7632 


4034 






U0P0K6' 


177654 


4044 








177636 


4054 






UIPABO" 


177640 


40?4 








177642 


4104 






UIPAB2* 


177644 


4114 






1 1 TB AB • 


177646 


4124 






1 1 TB ABA _ 


177650 


4134 






1 itbabc . 


177652 


4144 






1 1 TB AB^ _ 


177654 


4154 






1 iTB AB Y - 


177656 


4164 






UIPDRO" 


177600 


3874 






UIPDRl ■ 


177602 


3884 






UIrO»<2" 


177604 


3894 








4 A^ 

177606 


3904 






UlrDH4 • 


177610 


3914 






1 iTOftac . 


177612 


3924 






1 ITDnD^ • 

Uir'Wo" 


4 4 A 

177614 


3934 






UIKUH / • 


4 ^ 4 ^ 


3944 






VDl IP 


177566 


5404 








4 T TC^ A 

1^ '564 


5594 






V V w 


A 4 « W *\ 

010732 


2795 


29974 




• Wr* 1 no 


AAA1AA 


596 


6024 




t AC T A T - 


****** 0 


3547 


3562 




t AT vP 


A 4 SA 

0130 72 


3518 


35204 




• AT V 1 


A4 V AA ^ 

013046 


55164 








A 4 Sac a 

013054 


3082 


35174 




* AT 


013064 


55194 


3598 




4 Al IT/IO 


012764 


965* 


3525 


54444 




011512 


5099* 


5109* 


5116 


APw Clio 


012210 


55154 


5510 






912 


918 


920 




012735 


5526 


54594 




A 4 ^ V A 

012730 


5545 


34584 






A/\ « A^£ 


6404 






AAf AAS 


7554 


5098 


3159 




A 4 4 ^ 

011752 


5185 


5219 


52274 




AA 1 A 4 A 

OOlOlO 


6514 




A 1 4 AA A 


5020 


5029 


50554 




All 7A ^ 

Ul 1 f 42 


5188 


52254 




A 4 4 A V A 

011054 


585 


50514 






A 1 4 AA'\ 

011002 


919 


50224 




tFMi ■ 1 


All ACA 


5027 


50584 




• triv 


OOX020 


6564 


896 


957 




001021 


6574 


945 


5079 


»tw 


A 4 A ^ A f 

010746 


50114 




A 1 A ^ ^ A 

010774 


919« 


50194 


3025 








920* 


35 74* 


•ERROR 


013314 


914 


949 


55744 


lETABL 


001020 


6554 




»ETENO 


001030 


608 


64 74 




»FATAL 


001002 


6284 


5555* 





rent^tMle 



USER Srr«OLS 



SEQ n080 



5142* 51474 



5554 



5458 



5077 
5084 



5575 



3525 3549 5596 
3527 



USER StHBOLS 



SEQ 0081 



IFfLG 

•riLLC 

•FILLS 

«CEr42 

IGTSUR 

IHD 

IHI8TS 

IINTAG 

«LF 

ILFLG 

««AIL 

I MB ADR 

IMTLG 

IMNEW 

tnSGAO 

tnSGLG 

IHSGTt 

I NULL 
INWTST* 



01351^ 
011550 
011527 
011024 
012260 
000005 
000204 
012765 
011555 
015511 
001000 
000206 
015510 
012755 
001014 
001016 
001000 
012742 
011526 
000001 



tOCNT 

lOMOOE 

IPASS 

IPASTM 

IPATCM 

tOUES 

tROCHR 

IROOEC- 

IROLIN 

IROOCT- 

»RDSZ ■ 

IRTNAO 

IR2A - 

»SAVR£ 

»SETUP- 

»STUP . 

«SVPC • 

tSUR - 



012204 

012206 

001006 

000212 

015462 G 

011552 

012472 

•«•*•• U 

012612 

u 

000010 
011046 

••**•« u 
*••**• u 

000126 
177777 
000204 
160000 



tSUREC 001022 

JTESTN 001004 

ITKB 011520 

»TKS 011516 

ITN - 000023 



I TPS 011524 
ITPTLG 011531 
»TPe 011522 



5516* 
5102 
5155# 
502S« 
55274 
255 
6054 
5555 
51594 
555 7 • 
604 
6044 
5517» 
5550 
655* 
6544 
6274 
5527 
5104 
9694 
1455 
21024 
5260* 
5255* 
6304 
6064 
36044 
51584 
55864 
5515 
54144 
5513 
54074 
50574 
5515 
3513 
5494 
5494 
5814 
255 
1680 
6584 
6294 
1958* 
5125 
5121 
2554 
12624 
1508 
1705 
2014 
25564 
2786 
5159« 
5071 
5157 



3519* 
51564 



5508 
254 

54454 
5429 
55654 
608 

5525 

54424 

5555* 

5558* 

5551 

54404 

51544 

971 
15364 
2104 
5289* 
5259* 

918* 



3573 
3511 

3512 



913 

586 
2544 
1959 
947 
965* 
2062* 
3130 
31'8 
969 
1281 
1521 
1712 
20654 
2359 
27914 
31534 
51574 
51524 



5547 



5438 

6264 
5558* 
5556 
5559* 



10254 
1538 
22764 
33024 
3264 
944* 



3422 



3556* 55644 



95"' 
55624 

5551 



1025 

16104 

2278 

5267* 
5012 



5458 



957 



5555* 



10794 

1612 

24244 

5278* 
3016* 



5077 



1081 11574 
17124 1714 
2426 26274 



55044 
5017* 



5025 



1159 

18474 

2629 



5058 



12244 

1649 

27864 



1226 
19224 



15154 1315 14534 
1924 2014# 2016 



914 


916 


916 


920 


921 


954 


921 


998 


1051 


1119 


1187 


1262 


2065 


2163 


2556 


2525 


2690 


2791 


997* 


1050* 


1118* 


1166* 


1261* 


1366* 


2162* 


2335* 


2522* 


2689* 


2790* 


5596 


31514 


3308 


5519 


5336 


3590 


51504 


5308 


5517 


3555 


3357* 


5588 


9984 


1006 


1025 


10514 


1079 


11194 


1287 


1315 


15674 


1375 


1585 


1594 


1528 


1556 


15694 


1595 


1602 


1610 


17754 


1790 


1815 


1830 


1847 


18804 


2095 


2102 


21654 


2174 


2195 


2216 


2394 


2404 


2417 


2424 


252S4 


2620 



5016 



1567 
5006 

1482* 



5594 
1144 

1405 
16454 

1893 
2235 
2627 



5510 



5444 



1485 


1569 


1643 


1773 


5016 


3050 


3036 


3056 


1568* 


16- •• 


1772* 


1679. 


1157 


11674 


1209 


1224 


1419 


1433 


14834 


1494 


1649 


1669 


1678 


1696 


1907 


1922 


19594 


1964 


2251 


2260 


2266 


22^6 


26904 


2745 


2754 


277b 
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STRAP 


01^766 


916 


34540 






$TRAP^ 


013010 


S465« 


5501 






ITRP • 


000012 


3494* 


35034 


35044 


35054 


tTRPAO 


013022 


3459 


35014 






ITSTM 


000210 


605* 








ITSTNU. 


000001 


542# 








»TT»IN 


012720 


3415 


3416 


3433 


34374 


tTVP8N> 


«««••• u 


3507 








iTtPOS 


011S36 


3173# 


3506 






♦ TtPE 


011162 


307l# 


3494 


3502 


3544 


♦TtP£C 


011374 


3101 


3108 


3115 


31204 


«TtP€X 


011514 


3143 


3145 


31484 




♦TtPOC 


012006 


325«4 


3503 






ITYPON 


012022 




32604 


3505 




I Typos 


011762 


J253# 


3504 






lUNIT 


001012 


6S2« 








»(.»4ITM 


000214 


607« 








tUSUR 


001024 


639# 








tXOf f ' 


000023 


3125 


3152 






IXON ■ 


000021 


3132 


3152 






IICET4- 


000000 


3030* 








«0f ILL 


012205 


3254 • 


3256* 


3268 


33034 


I40CAT 


000000 


567* 










013502 


5524 


568 


5724 


581 






614* 


615* 


6964 


7374 






3156 


5157 


3158 


3159 






3605« 








.tASTA> 




3517 


3520 








000204 


5924 


597 


609 


614 



3359 



5824 
3038 
31604 



E / 

_ SEQ 0082 

USER SYMBOLS 



35074 3508 35094 3510 5*ill4 35124 35154 



5844 5864 592 5934 5954 5974 6094 6104 
50594 50554 3150 3151 3152 3153 3154 3155 
32274 3508 54574 5458 5444 5445 5446 55654 



F / 
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MACRO NAMES 



6GNM0D 
BGNSOB 
BGNTST 

CCMMS2 

CCK»1S3 

CCMMS4 

CCMMS5 

CCMMS6 

CKLOOP 

CMSGl 

CMSGIO 

CMSGl 1 

CMSG12 

CMSGl 5 

CMSG15 

CMSGl 7 

CMSG20 

CMSG21 

CMSG22 

CMSG23 

CMSG7 

COMMEN 

OErPRG 

ENOCOM 

ENOMOO 

ENOPAS 

ENDSUB 

ENOTST 

ERROEF 
ERROF 



ERRFOl 

ERRF02 

ERRF03 

ERRF04 

ERRF05 

ERRF06 

ERRF07 

ERRF08 

ERRF09 

ERRFl 

ERRFIO 

ERRFll 

ERRF12 

ERRF13 

ERRF14 

ERRF15 

ERRF16 

ERRFl 7 



1281* 
1893# 
256* 
239« 
238« 
2334 
1021* 
1078* 
1156* 
1223* 
1311* 
238* 
969* 
1535* 
1609* 
1711* 
1846* 
1921* 
2013* 
2101* 
2275* 
2423* 
2626* 
1432* 
372* 
1* 
372* 
238* 
3002* 
239* 
238* 
2422 
237* 
238* 
1407 
1817 
2201 
2847 
235* 
235* 
235* 
235* 
236* 
236* 
236* 
236* 
236* 
227* 
228* 
228* 
228* 
228* 
228* 
228* 
229* 
229* 



1575* 
2174* 
967 

996 
2521 
1025 
1081 
1159 
1226 
1315 

971 
1538 
1612 
1714 
1849 
1924 
2016 
2104 
2278 
2426 
2629 
1435 



3000 
3024 

1019 
2625 

866 
1414 
1824 
2218 
2856 



2174 
2193 
2216 
2233 

2359 
2394 
1012 
1385 
1394 
1405 
1414 
1494 
1508 
1521 
1595 



1385* 
2193* 



1049 
2688 



1394* 
2216* 



1117 
2789 



1405* 
2233* 



1185 



1494* 1508* 
2251* 2260* 



1260 



1365 



1521* 
2359* 



1481 



1595* 
2394* 



1567 



1649* 
2404* 



1641 



1669* 
2745* 



1771 



1678* 
2754* 



1878 



SEQ 0083 



1698* 1790* 1815* 



1957 2061 2161 



107f, 


1155 


1221 


1309 


1430 


1533 


1607 


1710 


1844 


1920 


2012 


2098 


2272 


2781 


2999 
















1013 


1060 


1066 


1130 


1138 


1151 


1198 


1205 


1217 


1283 


1377 


1387 


1396 


1426 


1496 


1510 


1523 


1597 


1651 


1671 


1680 


1700 


1778 


1792 


1798 


1805 


1838 


1895 


1901 


1914 


1977 


1992 


2000 


2006 


2078 


2084 


2176 


2183 


2195 


2224 


2235 


2241 


2253 


2262 


2363 


2369 


2398 


2406 


2558 


2570 


2749 


2758 


2871 


2884 


2919 


2927 


2941 


2963 
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ERRr 18 


229* 




ERRr 19 




4 £ £ a 


cRRr^ 




lUoO 


cRW 20 


229# 


1670 


CKRF^l 


229^ 




cooc 
tRRr 22 




1 7 7 A 

1 f f O 


C DOC ^ V 


229# 


1790 


CHHr 2* 


230# 


1795 


CHHr 2 J 


230V 




tHHr 26 


250* 


1 A 1 C 


CHHr 2 > 


250w 


lo2*» 


cRRr 28 


230V 




CDDC^O 

CHHr 2^ 


^ Vi*\A 

250* 


1 ATT 

loo i 


CODC V 
CHHr 3 


22 '» 




CDDC 

CRRr 30 


230v 


1 AOT 

1093 


CDDC V 1 

cRHr 51 


^V/\A 

2909 


4 OAA 

iwo 


CHHr 32 


1 A 


l7iO 


CDDC W 
CHHr 33 


on A 

231v 




C DDC V A 
CHHr 3* 


on A 
2319 




CHHr 33 


2olw 




CDDC V£ 
CHHr 36 


OV « A 




CDDC V 7 

CRHr 3 / 


OV 1 A 

2319 


19 f 


CDOC S A 

CHHr 38 


2319 


1992 


CDDC 

CHHr 3** 


1 A 

2319 


20w 


CDDC^ 
CHHr ^ 


22 '9 


1130 


CDDC A A 
CHHr 


2329 


2000 


CDDC A 1 

CHHr 4 1 


2329 




CDDCA ^ 
CHHr ^2 


O VOA 

2329 




CHHr ^3 


2329 




CDDC A A 
CHHr ^^ 


2329 




CHHr ^^ 


O VOA 

2329 




CHHr 


2329 


20 7o 


CHHr H I 


2329 


2084 


CKKr 


o WA 
2339 


2162 


CHHr H7f 


O W A 

2539 


2200 


CHHr 3 


2279 


4 4 V O 

1138 


CHHr DU 


2359 


OOOl 

2225 


CHHr 31 


O W A 

2559 


ooA/^ 
2240 


CHHr 32 


O WA 

2559 


2251 


CKKr 33 


3 Wa 
2339 


2260 


CKKr 3^ 


2559 


2569 


CKKr 33 


O VTA 

2559 


OA/\A 

2404 


CKKr 30 


2349 


2330 


CKKr 3 f 


2349 


2j f O 


CKKr 3o 


OVA A 

2549 


07AC 

2 '43 


CKKr 3^ 


234w 


2 f 34 


CKKr o 


007A 
22 '9 


1 198 


CKKr 


O 

2349 


oa^ 7 
204 f 


ERRr61 


2349 




ERRF62 


2349 


2871 


ERRFeS 


2349 


2884 


ERRF64 


2359 


2919 


ERRr65 


2359 


2927 


ERRF66 


2359 


2941 


ERRr67 


2359 


2963 


ERRF7 


2279 


1205 
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HZ 

MACRO NAMES 



CODC A 




IcBU 






1 X7S 






AA7 




IHU ' 


1 A 




1 A1 7 


1 A9A 
















J r c V 




C I A 1 1 




009 


C 1 A 1 XV/ 




1 X49 


F TXTI 1 






P TJtTl P 




1 YS1 


FT*T1 % 

b 1 A 1 X J 






FTXTl A 

C 1 A 1 




X*>vX 


FTXTl^ 

C V A 1 




1AM 


F TXT 1 A 




1 A7S 


F TXTl 7 




1 SA9 


FTXTI A 

b ■ A 1 Xv 




1A9^ 


FTXTt Q 


991 * 




F TXTP 


91 




FTXTPO 


991 A 




F TXTPI 

C 1 A 1 C X 


991 A 




FTXTPP 


991 A 


1 79Q 


FTXTPX 

b 1 A 1 CO 


991 A 


1 7XA 


FTXTPA 


991 A 


1 741 
X '*x 


F TXTO^ 

C 1 A 1 CD 


991 A 


X f ■•O 


F TXTPA 


999A 




FTXTP? 


999A 


1 7^4^ 
X 'DO 


FTVT3A 


999A 
ccc» 


X 'OX 


FTXTPQ 




1 'OO 


FTXTX 

C 1 A 1 O 


91 QA 






999A 


1 A&& 
XOOO 


b 1 A 1 OX 


999A 


1 AAA 
lOOO 


FTXTXP 


999A 


1 A7A 
XO '^ 


FTXT55 


999A 
CCCv 




FTXT*^ 


99XA 






99 X A 






99XA 




FTXT57 


99XA 


1 OT7 

X73 ' 




99^A 


X 7^0 


FTXT^Q 

w 1 A 1 0~ 


99TA 


1 QAA 


ETXT4 


91 QA 


1 1 nx 

XXvd 


ETXT40 


99YA 


lO^I 

X 7?X 


ETXT41 


99^A 




ETXT42 


994 A 




ETXT43 


99AA 




ETXT44 


994* 






99A* 




ETXT46 


224* 


2047 


ETXT47 


224* 


2057 


ETXT48 


224« 


2135 


ETXT49 


224* 


2139 


ETXT5 


219* 


1110 


ETXT50 


2259 


2144 


ETXT51 


22S« 


2148 


ETXT52 


225* 


2153 



1013 
1426 
1838 
2224 
2871 



1060 
1496 
1895 
2235 
2884 



1066 
1510 
1901 
2241 
2919 



1130 
1523 
1914 
2253 
2927 



1138 
1597 
1977 
2262 
2941 



1151 
1651 
1992 
2363 
2963 



1198 
1671 
2000 
2369 



1205 
1680 
2006 
2398 



1217 
1700 
2078 
2406 



1283 
1778 
2084 
2558 



1377 
1792 
2176 
2570 



SEQ O085 



1387 1396 

1798 1805 

2183 2195 

2749 2758 
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MACPO NAMES 



SEQ 0086 



tTxT55 

ETXTS4 

ETXT55 

ETXT56 

ETXTS"- 

ETxTSa 

ETXT59 

ETXT6 

ETXT60 

ETXT61 

ETXT62 

ETXT7 

ETXT8 

ETXT9 

EXITST 

FRONT 

FRONTl 

GETPRI 

GETSUR 

IDHSG 

MULT 

NEUTST 

POP 

PUSH 

REPORT 

SCOPE 

SETPRI 

SETTRA 

SETUP 

SFTERR 

SKIP 
SLASH 
SPACE 
STARS 



SURSU 

TAIL 

TRHTRP 

TYPBIN 

TyPDEC 

TyPNAH 

typnum 
typocs 

TYPOCT 
TYPTXT 
MESCA 
•IFTER 

ttNEWT 



225# 
225# 
225# 
225* 
225* 
226« 
226* 
219* 
226« 
226« 
226« 
219* 
219C 
219# 
256* 

2620 
19 
19 
372# 
372# 

3002* 
3 72* 
237# 

2101 
372* 
372* 
372* 
2674 
3724 

S4694 
2374 
2364 

1815 
3724 
3724 
3724 



54914 

3724 
3724 
3724 
3724 
5724 
3724 
3724 
3724 
12814 
18934 
3724 
2276 



2157 
2308 
2325 
2461 
24 70 
2668 
2672 
1176 



1180 
1244 

1337 
1006 
2776 

2164 

954 

3012 

3724 
2275 
3214 
3173 



5494 

3724 
1281 
1893 



1144 



1209 



1287 



1419 



1528 



1602 



1705 



1830 



1907 



1984 



2093 



2266 



241 i 



969 
2423 
3559 
3520 



3503 
911 
1375 
2174 



1022 
2626 
3560 
3522 



3504 

1385 
2193 



1078 
2785 

3543 



3505 

1394 

2216 



1156 



1223 



1312 



1432 



1535 



1609 



1711 



1846 



1921 



2013 



3506 

1405 

2233 



3508 

1494 

2251 



3510 

1508 
2260 



3511 

1521 
2359 



3512 

1595 
2594 



1649 
2404 



1669 
2745 



1678 
2754 



1698 



1790 



3724 


579 


589 


591 


598 


624 


969 


971 


995 


1023 


1025 


1048 


1079 


1081 


1116 


1157 


1159 


1184 


1224 


1226 


1259 


1315 


1515 


1564 


1435 


1455 


1480 


1556 


1558 


1566 


1610 


1612 


1640 


1712 


1714 


1770 


184 7 


1849 


1877 


1922 


1924 


1956 


2014 


2016 


2060 


2102 


2104 


2160 


2276 


2278 


2333 


2424 


2426 


2520 


2627 


2629 


2687 


2786 


2788 


3005 


3056 


3163 


5230 


3307 


3310 


3378 


3407 


5448 


3515 


5570 












3724 


9214 




























14 


3002 





























5025 



5328 



15754 
21744 

969 
2424 



15854 15944 14054 

21954 22164 22554 

1025 1079 1157 

2627 2786 



14944 15084 
22514 22604 
1224 1313 



15214 15954 
25594 23944 
1455 1556 



16494 16694 16784 
24044 27454 27544 
1610 1712 1847 



16984 I '904 18154 



1922 



2014 



2102 



J7 



GLOBAl 


ARf AS 


MACt I 


KDJllA. 


MAC 03 


APR i 


I »SE T 


34 75* 


3494 


♦ISETM 


937» 


944 


* tSKIP 


372* 




.EOUAT 


237# 


262 


.MEAOE 


?39* 


244 


.KTll 


237# 


372 


. setlp 


239# 


549 


. * ACT 1 


259# 


577 


. IMP IB 


2579 


622 


. IAPTM 


239# 


587 


, IAPTi 


240* 


3513 


, *EOP 


237« 


3003 


. lENNJ 


240# 




. f HEAD 


240# 


3305 


. ITRAP 


259# 


3446 


. I TrPO 


238* 


3161 


.♦TYPE 


238» 


3054 


. »TtPO 


240# 


5228 


. »40CA 


237* 


550 


. A8S. 


013502 


00< 


ERRORS 


OETECTEO 


: 0 
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3503 



3504 



3505 



3506 



3508 



MACRO NAMES 
3510 3511 



SEO O087 



3512 



CZKOMB/EN : ABS , CZKQMB . SEQ/OOC/SOL /CRF /ML : TOC - S V SMAC . SML /ML , CZKDMB . MAC /ML . KQ J 1 1 A . MAC 
RUN -TIME: 748 109 5 SECONDS 
RUN- TIME RATIO: 1286/864-1.4 
CORE USED: 58K (115 PAGES) 



DOCUMENT PAGES: 87 



